Skip to content

Fix gcc warnings about Fortran 2018 deleted features #93

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
langou merged 1 commit into from
Feb 22, 2024
Merged

Fix gcc warnings about Fortran 2018 deleted features #93

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
51 changes: 28 additions & 23 deletions BLACS/TESTING/blacstest.f
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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
*
Expand Down Expand Up @@ -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
*
Expand Down Expand Up @@ -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
*
Expand Down Expand Up @@ -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
*
Expand Down Expand Up @@ -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
Expand Down Expand Up @@ -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
*
Expand Down