Initialize test results to zero in LIN testing routines to preempt potential garbage data

influencing the test evaluations.

Author: ACSimon33

TESTING/LIN/cchkqp3rk.f

@@ -587,6 +587,9 @@ SUBROUTINE CCHKQP3RK( DOTYPE, NM, MVAL, NN, NVAL, NNS, NSVAL,
                   CALL XLAENV( 1, NB )
                   NX = NXVAL( INB )
                   CALL XLAENV( 3, NX )
+                  DO I = 1, NTESTS
+                    RESULT( I ) = ZERO
+                  END DO
 *
 *                 We do MIN(M,N)+1 because we need a test for KMAX > N,
 *                 when KMAX is larger than MIN(M,N), KMAX should be

TESTING/LIN/dchkqp3rk.f

@@ -584,6 +584,9 @@ SUBROUTINE DCHKQP3RK( DOTYPE, NM, MVAL, NN, NVAL, NNS, NSVAL,
                   CALL XLAENV( 1, NB )
                   NX = NXVAL( INB )
                   CALL XLAENV( 3, NX )
+                  DO I = 1, NTESTS
+                    RESULT( I ) = ZERO
+                  END DO
 *
 *                 We do MIN(M,N)+1 because we need a test for KMAX > N,
 *                 when KMAX is larger than MIN(M,N), KMAX should be

TESTING/LIN/schkqp3rk.f

@@ -583,6 +583,9 @@ SUBROUTINE SCHKQP3RK( DOTYPE, NM, MVAL, NN, NVAL, NNS, NSVAL,
                   CALL XLAENV( 1, NB )
                   NX = NXVAL( INB )
                   CALL XLAENV( 3, NX )
+                  DO I = 1, NTESTS
+                    RESULT( I ) = ZERO
+                  END DO
 *
 *                 We do MIN(M,N)+1 because we need a test for KMAX > N,
 *                 when KMAX is larger than MIN(M,N), KMAX should be

TESTING/LIN/zchkqp3rk.f

@@ -587,6 +587,9 @@ SUBROUTINE ZCHKQP3RK( DOTYPE, NM, MVAL, NN, NVAL, NNS, NSVAL,
                   CALL XLAENV( 1, NB )
                   NX = NXVAL( INB )
                   CALL XLAENV( 3, NX )
+                  DO I = 1, NTESTS
+                    RESULT( I ) = ZERO
+                  END DO
 *
 *                 We do MIN(M,N)+1 because we need a test for KMAX > N,
 *                 when KMAX is larger than MIN(M,N), KMAX should be