Fixed commented out result initialization

Reference-LAPACK · Jun 21, 2024 · 7113caa · 7113caa
1 parent 4bd18e2
commit 7113caa
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/TESTING/LIN/dchkqp3rk.f b/TESTING/LIN/dchkqp3rk.f
@@ -605,9 +605,9 @@ SUBROUTINE DCHKQP3RK( DOTYPE, NM, MVAL, NN, NVAL, NNS, NSVAL,
                   CALL DLACPY( 'All', M, NRHS, COPYB, LDA,
      $                         B,  LDA )
                   CALL ICOPY( N, IWORK( 1 ), 1, IWORK( N+1 ), 1 )
-                  ! DO I = 1, NTESTS
-                  !   RESULT( I ) = ZERO
-                  ! END DO
+                  DO I = 1, NTESTS
+                    RESULT( I ) = ZERO
+                  END DO
 *
                   ABSTOL = -1.0
                   RELTOL = -1.0