From 3949e1c2d7c4fd791af0020a0359313c0df5e4c2 Mon Sep 17 00:00:00 2001 From: Christoph Niethammer Date: Wed, 21 Feb 2024 22:43:30 +0100 Subject: [PATCH] Fix gcc warnings about Fortran 2018 deleted features DO with shared termination was declared obsolescent in Fortran 90 Signed-off-by: Christoph Niethammer --- BLACS/TESTING/blacstest.f | 51 +++++++++++++++++++++------------------ 1 file changed, 28 insertions(+), 23 deletions(-) diff --git a/BLACS/TESTING/blacstest.f b/BLACS/TESTING/blacstest.f index 5f3712a3..d06ccd89 100644 --- a/BLACS/TESTING/blacstest.f +++ b/BLACS/TESTING/blacstest.f @@ -6471,10 +6471,11 @@ SUBROUTINE IGENMAT( M, N, A, LDA, TESTNUM, MYROW, MYCOL ) ISEED(3) = MOD( 1234 + TESTNUM + SRC*3, 4096 ) ISEED(4) = MOD( 4311 + TESTNUM*10 + SRC*2, 4096 ) * - DO 10 J = 1, N - DO 10 I = 1, M + DO J = 1, N + DO I = 1, M A(I, J) = IBTRAN( ISEED ) - 10 CONTINUE + END DO + END DO * RETURN * @@ -7540,10 +7541,11 @@ SUBROUTINE SGENMAT( M, N, A, LDA, TESTNUM, MYROW, MYCOL ) ISEED(3) = MOD( 1234 + TESTNUM + SRC*3, 4096 ) ISEED(4) = MOD( 4311 + TESTNUM*10 + SRC*2, 4096 ) * - DO 10 J = 1, N - DO 10 I = 1, M + DO J = 1, N + DO I = 1, M A(I, J) = SBTRAN( ISEED ) - 10 CONTINUE + END DO + END DO * RETURN * @@ -8604,10 +8606,11 @@ SUBROUTINE DGENMAT( M, N, A, LDA, TESTNUM, MYROW, MYCOL ) ISEED(3) = MOD( 1234 + TESTNUM + SRC*3, 4096 ) ISEED(4) = MOD( 4311 + TESTNUM*10 + SRC*2, 4096 ) * - DO 10 J = 1, N - DO 10 I = 1, M + DO J = 1, N + DO I = 1, M A(I, J) = DBTRAN( ISEED ) - 10 CONTINUE + END DO + END DO * RETURN * @@ -9668,10 +9671,11 @@ SUBROUTINE CGENMAT( M, N, A, LDA, TESTNUM, MYROW, MYCOL ) ISEED(3) = MOD( 1234 + TESTNUM + SRC*3, 4096 ) ISEED(4) = MOD( 4311 + TESTNUM*10 + SRC*2, 4096 ) * - DO 10 J = 1, N - DO 10 I = 1, M + DO J = 1, N + DO I = 1, M A(I, J) = CBTRAN( ISEED ) - 10 CONTINUE + END DO + END DO * RETURN * @@ -9761,30 +9765,30 @@ SUBROUTINE CPADMAT( UPLO, DIAG, M, N, MEM, LDA, IPRE, IPOST, * Put check buffer in front of A * IF( IPRE .GT. 0 ) THEN - DO 10 I = 1, IPRE + DO I = 1, IPRE MEM( I ) = CHECKVAL - 10 CONTINUE + END DO END IF * * Put check buffer in back of A * IF( IPOST .GT. 0 ) THEN J = IPRE + LDA*N + 1 - DO 20 I = J, J+IPOST-1 + DO I = J, J+IPOST-1 MEM( I ) = CHECKVAL - 20 CONTINUE + END DO END IF * * Put check buffer in all (LDA-M) gaps * IF( LDA .GT. M ) THEN K = IPRE + M + 1 - DO 40 J = 1, N - DO 30 I = K, K+LDA-M-1 + DO J = 1, N + DO I = K, K+LDA-M-1 MEM( I ) = CHECKVAL - 30 CONTINUE + END DO K = K + LDA - 40 CONTINUE + END DO END IF * * If the matrix is upper or lower trapezoidal, calculate the @@ -10736,10 +10740,11 @@ SUBROUTINE ZGENMAT( M, N, A, LDA, TESTNUM, MYROW, MYCOL ) ISEED(3) = MOD( 1234 + TESTNUM + SRC*3, 4096 ) ISEED(4) = MOD( 4311 + TESTNUM*10 + SRC*2, 4096 ) * - DO 10 J = 1, N - DO 10 I = 1, M + DO J = 1, N + DO I = 1, M A(I, J) = ZBTRAN( ISEED ) - 10 CONTINUE + END DO + END DO * RETURN *