Remove warnings about uninitialized stuff (-Wuninitialized)

I have no idea why moving these statements around removes the warnings (at least under GCC 13). Probably an issue internal to GCC.
2023-09-20 17:38:58 +02:00 · 2023-09-20 17:38:58 +02:00 · a54b29a384
parent 605ed45811
commit a54b29a384
1 changed files with 2 additions and 2 deletions
--- a/mex/sources/cycle_reduction/mexFunction.f08
+++ b/mex/sources/cycle_reduction/mexFunction.f08
@ -43,13 +43,13 @@ contains
      real(real64) :: residual, crit
      character(kind=c_char, len=10) :: cvg_tol_str, residual_str

-      Ahat = A1
-      A1i = A1
      n = size(A0,1)
      dn = 2*n
      allocate(A02(n,dn), ipiv(n), invA1_A02(n,dn), Q0(n,dn), Q2(n,dn))
      A02(:,1:n) = A0
      A02(:,n+1:dn) = A2
+      Ahat = A1
+      A1i = A1
      it = 0
      max_it = 300
 loop: do