xORBDB6/xUNBDB6: fix read of uninitialized variable

There is no warning with GCC 11 about an undeclared and uninitialized varible being read without the `-Wextra` flag. Why?
chrwarm · Jul 14, 2022 · 145b1c3 · 145b1c3
1 parent 54b3964
commit 145b1c3
Show file tree

Hide file tree

Showing 4 changed files with 4 additions and 4 deletions.
diff --git a/SRC/cunbdb6.f b/SRC/cunbdb6.f
@@ -262,7 +262,7 @@ SUBROUTINE CUNBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2,
          RETURN
       END IF
 *
-      IF( NORMSQ2 .LE. N * EPS * NORM ) THEN
+      IF( NORM_NEW .LE. N * EPS * NORM ) THEN
          DO IX = 1, 1 + (M1-1)*INCX1, INCX1
            X1( IX ) = ZERO
          END DO

diff --git a/SRC/dorbdb6.f b/SRC/dorbdb6.f
@@ -261,7 +261,7 @@ SUBROUTINE DORBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2,
          RETURN
       END IF
 *
-      IF( NORMSQ2 .LE. N * EPS * NORM ) THEN
+      IF( NORM_NEW .LE. N * EPS * NORM ) THEN
          DO IX = 1, 1 + (M1-1)*INCX1, INCX1
            X1( IX ) = ZERO
          END DO

diff --git a/SRC/sorbdb6.f b/SRC/sorbdb6.f
@@ -261,7 +261,7 @@ SUBROUTINE SORBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2,
          RETURN
       END IF
 *
-      IF( NORMSQ2 .LE. N * EPS * NORM ) THEN
+      IF( NORM_NEW .LE. N * EPS * NORM ) THEN
          DO IX = 1, 1 + (M1-1)*INCX1, INCX1
            X1( IX ) = ZERO
          END DO

diff --git a/SRC/zunbdb6.f b/SRC/zunbdb6.f
@@ -262,7 +262,7 @@ SUBROUTINE ZUNBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2,
          RETURN
       END IF
 *
-      IF( NORMSQ2 .LE. N * EPS * NORM ) THEN
+      IF( NORM_NEW .LE. N * EPS * NORM ) THEN
          DO IX = 1, 1 + (M1-1)*INCX1, INCX1
            X1( IX ) = ZERO
          END DO