Fix uninitialized variable.

svn-origin-rev: 15116
pc2 · Mar 2, 2015 · 74026bd · 74026bd
1 parent 1658055
commit 74026bd
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/common/mathlib.F b/src/common/mathlib.F
@@ -934,7 +934,7 @@ SUBROUTINE get_pseudo_inverse_svd(a,a_pinverse,rskip,error)
     CALL timeset(routineN,handle)
 
     n=SIZE(a,1)
-    ALLOCATE(u(n,n),vt(n,n),sig(n),sig_plus(n,n),iwork(8*n),work(1),temp_mat(n,n))
+    ALLOCATE(u(n,n),vt(n,n),sig(n),sig_plus(n,n),iwork(8*n),work(1),temp_mat(n,n),stat=stat)
     CPPostcondition(stat==0,cp_failure_level,routineP,error,failure)
     u(:,:)   = 0.0_dp
     vt(:,:)  = 0.0_dp