From 145b1c329acbd086d67f3c7e29ca4335d5bbdaae Mon Sep 17 00:00:00 2001 From: Christoph Conrads Date: Thu, 14 Jul 2022 19:27:05 +0000 Subject: [PATCH] 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? --- SRC/cunbdb6.f | 2 +- SRC/dorbdb6.f | 2 +- SRC/sorbdb6.f | 2 +- SRC/zunbdb6.f | 2 +- 4 files changed, 4 insertions(+), 4 deletions(-) diff --git a/SRC/cunbdb6.f b/SRC/cunbdb6.f index d015fe39d7..b93a389d6b 100644 --- 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 index 9fe87cbc77..80bcc06e27 100644 --- 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 index 2a99d4bc13..b2449e3bed 100644 --- 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 index 02494dd987..1fa7622ee3 100644 --- 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