Argument mismatches

[cniethammer]

I tried to build and test the latest master branch version (8435bf3) with gcc 13.2.1 and Open MPI 5.0.2 and run into a lot of 'Type mismatch in argument ...' in BLACS/TESTING/blacstest.f.
Looking around it seems that gcc 10+ compatibility was addressed only for files in SRC (see #26) but not TESTING

mpif90 -O0 -c blacstest.f
blacstest.f:6475:72:

6475 | DO 10 I = 1, M
| 1
Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1)
blacstest.f:7544:72:

7544 | DO 10 I = 1, M
| 1
Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1)
blacstest.f:8608:72:

8608 | DO 10 I = 1, M
| 1
Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1)
blacstest.f:9672:72:

9672 | DO 10 I = 1, M
| 1
Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1)
blacstest.f:10740:72:

10740 | DO 10 I = 1, M
| 1
Warning: Fortran 2018 deleted feature: Shared DO termination label 10 at (1)
blacstest.f:8492:39:

8489 | CALL BTRECV(3, 1, NERR2, K, IBTMSGID()+50)
| 2
......
8492 | CALL BTRECV(3, NERR2*6, IERR, K, IBTMSGID()+51)
| 1
Error: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
blacstest.f:8493:39:

8489 | CALL BTRECV(3, 1, NERR2, K, IBTMSGID()+50)
| 2
......
8493 | CALL BTRECV(6, NERR2*2, DVAL, K, IBTMSGID()+51)
| 1
Error: Type mismatch between actual argument at (1) and actual argument at (2) (REAL(8)/INTEGER(4)).
blacstest.f:8514:35:

8488 | CALL BTSEND(3, 0, K, K, IBTMSGID()+50)
| 2
......
8514 | CALL BTSEND(3, NERR*6, IERR, 0, IBTMSGID()+51)
| 1
Error: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
blacstest.f:8515:35:

8488 | CALL BTSEND(3, 0, K, K, IBTMSGID()+50)
| 2
......
8515 | CALL BTSEND(6, NERR*2, DVAL, 0, IBTMSGID()+51)
| 1
Error: Type mismatch between actual argument at (1) and actual argument at (2) (REAL(8)/INTEGER(4)).
blacstest.f:13160:37:

8489 | CALL BTRECV(3, 1, NERR2, K, IBTMSGID()+50)
| 2
......
13160 | CALL BTRECV( 6, 1, EPS2, I, IBTMSGID()+20 )
| 1
Error: Type mismatch between actual argument at (1) and actual argument at (2) (REAL(8)/INTEGER(4)).
blacstest.f:13164:31:

8488 | CALL BTSEND(3, 0, K, K, IBTMSGID()+50)
| 2
......
13164 | CALL BTSEND( 6, 1, EPS, -1, IBTMSGID()+20 )
| 1
Error: Type mismatch between actual argument at (1) and actual argument at (2) (REAL(8)/INTEGER(4)).
blacstest.f:13166:31:

8488 | CALL BTSEND(3, 0, K, K, IBTMSGID()+50)
| 2
......
13166 | CALL BTSEND( 6, 1, EPS, 0, IBTMSGID()+20 )
| 1
Error: Type mismatch between actual argument at (1) and actual argument at (2) (REAL(8)/INTEGER(4)).
blacstest.f:13167:31:

8489 | CALL BTRECV(3, 1, NERR2, K, IBTMSGID()+50)
| 2
......
13167 | CALL BTRECV( 6, 1, EPS, 0, IBTMSGID()+20 )
| 1
Error: Type mismatch between actual argument at (1) and actual argument at (2) (REAL(8)/INTEGER(4)).
blacstest.f:244:37:

244 | $ CALL BTRECV( 3, 4, ITMP, I, IBTMSGID()+2 )
| 1
......
8489 | CALL BTRECV(3, 1, NERR2, K, IBTMSGID()+50)
| 2
Error: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
blacstest.f:251:31:

251 | CALL BTSEND( 3, 4, ITMP, 0, IBTMSGID()+2 )
| 1
......
8488 | CALL BTSEND(3, 0, K, K, IBTMSGID()+50)
| 2
Error: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
blacstest.f:305:72:

305 | $ MEM(ISEEDPTR), MEM(WORKPTR), WORKLEN)
| 1
Error: Type mismatch in argument ‘mem’ at (1); passed INTEGER(4) to REAL(4)
blacstest.f:317:72:

317 | $ MEM(ISEEDPTR), MEM(WORKPTR), WORKLEN)
| 1
Error: Type mismatch in argument ‘mem’ at (1); passed INTEGER(4) to REAL(8)
blacstest.f:329:72:

329 | $ MEM(ISEEDPTR), MEM(WORKPTR), WORKLEN)
| 1
Error: Type mismatch in argument ‘mem’ at (1); passed INTEGER(4) to COMPLEX(4)
blacstest.f:341:72:

341 | $ MEM(ISEEDPTR), MEM(WORKPTR), WORKLEN)
| 1
Error: Type mismatch in argument ‘mem’ at (1); passed INTEGER(4) to COMPLEX(8)
blacstest.f:395:72:

395 | $ MEM(ISEEDPTR), MEM(WORKPTR), WORKLEN)
| 1
Error: Type mismatch in argument ‘mem’ at (1); passed INTEGER(4) to REAL(4)
blacstest.f:407:72:

407 | $ MEM(ISEEDPTR), MEM(WORKPTR), WORKLEN)
| 1
Error: Type mismatch in argument ‘mem’ at (1); passed INTEGER(4) to REAL(8)
blacstest.f:419:72:

419 | $ MEM(ISEEDPTR), MEM(WORKPTR), WORKLEN)
| 1
Error: Type mismatch in argument ‘mem’ at (1); passed INTEGER(4) to COMPLEX(4)
blacstest.f:431:72:

431 | $ MEM(ISEEDPTR), MEM(WORKPTR), WORKLEN)
| 1
Error: Type mismatch in argument ‘mem’ at (1); passed INTEGER(4) to COMPLEX(8)
blacstest.f:529:72:

529 | $ WORKLEN)
| 1
Error: Type mismatch in argument ‘mem’ at (1); passed INTEGER(4) to REAL(4)
blacstest.f:539:72:

539 | $ MEM(WORKPTR), WORKLEN)
| 1
Error: Type mismatch in argument ‘mem’ at (1); passed INTEGER(4) to REAL(4)
blacstest.f:549:72:

549 | $ MEM(WORKPTR), WORKLEN)
| 1
Error: Type mismatch in argument ‘mem’ at (1); passed INTEGER(4) to REAL(4)
blacstest.f:562:72:

562 | $ WORKLEN)
| 1
Error: Type mismatch in argument ‘mem’ at (1); passed INTEGER(4) to COMPLEX(4)
blacstest.f:572:72:

572 | $ MEM(WORKPTR), WORKLEN)
| 1
Error: Type mismatch in argument ‘mem’ at (1); passed INTEGER(4) to COMPLEX(4)
blacstest.f:582:72:

582 | $ MEM(WORKPTR), WORKLEN)
| 1
Error: Type mismatch in argument ‘mem’ at (1); passed INTEGER(4) to COMPLEX(4)
blacstest.f:595:72:

595 | $ WORKLEN)
| 1
Error: Type mismatch in argument ‘mem’ at (1); passed INTEGER(4) to COMPLEX(8)
blacstest.f:605:72:

605 | $ MEM(WORKPTR), WORKLEN)
| 1
Error: Type mismatch in argument ‘mem’ at (1); passed INTEGER(4) to COMPLEX(8)
blacstest.f:615:72:

615 | $ MEM(WORKPTR), WORKLEN)
| 1
Error: Type mismatch in argument ‘mem’ at (1); passed INTEGER(4) to COMPLEX(8)
blacstest.f:913:36:

851 | CALL IGESD2D( CTXT2, 1, 1, K, 1, 0, 0 )
| 2
......
913 | CALL IGESD2D( CTXT2, K, 1, MEM, K, NPROW-1, NPCOL-1 )
| 1
Error: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
blacstest.f:914:36:

851 | CALL IGESD2D( CTXT2, 1, 1, K, 1, 0, 0 )
| 2
......
914 | CALL IGESD2D( CTXT2, K, 1, MEM, K, NPROW-1, NPCOL-1 )
| 1
Error: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
blacstest.f:915:36:

851 | CALL IGESD2D( CTXT2, 1, 1, K, 1, 0, 0 )
| 2
......
915 | CALL IGESD2D( CTXT2, K, 1, MEM, K, NPROW-1, NPCOL-1 )
| 1
Error: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
blacstest.f:916:36:

845 | $ CALL IGERV2D( CTXT2, 1, 1, K, 1, I, J )
| 2
......
916 | CALL IGERV2D( CTXT2, K, 1, MEM, K, NPROW-1, NPCOL-1 )
| 1
Error: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
blacstest.f:917:36:

845 | $ CALL IGERV2D( CTXT2, 1, 1, K, 1, I, J )
| 2
......
917 | CALL IGERV2D( CTXT2, K, 1, MEM, K, NPROW-1, NPCOL-1 )
| 1
Error: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
blacstest.f:918:36:

845 | $ CALL IGERV2D( CTXT2, 1, 1, K, 1, I, J )
| 2
......
918 | CALL IGERV2D( CTXT2, K, 1, MEM, K, NPROW-1, NPCOL-1 )
| 1
Error: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
blacstest.f:920:36:

851 | CALL IGESD2D( CTXT2, 1, 1, K, 1, 0, 0 )
| 2
......
920 | CALL IGESD2D( CTXT2, K, 1, MEM, K, 0, 0 )
| 1
Error: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
blacstest.f:921:36:

851 | CALL IGESD2D( CTXT2, 1, 1, K, 1, 0, 0 )
| 2
......
921 | CALL IGESD2D( CTXT2, K, 1, MEM, K, 0, 0 )
| 1
Error: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
blacstest.f:922:36:

851 | CALL IGESD2D( CTXT2, 1, 1, K, 1, 0, 0 )
| 2
......
922 | CALL IGESD2D( CTXT2, K, 1, MEM, K, 0, 0 )
| 1
Error: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
blacstest.f:923:36:

845 | $ CALL IGERV2D( CTXT2, 1, 1, K, 1, I, J )
| 2
......
923 | CALL IGERV2D( CTXT2, K, 1, MEM, K, 0, 0 )
| 1
Error: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
blacstest.f:924:36:

845 | $ CALL IGERV2D( CTXT2, 1, 1, K, 1, I, J )
| 2
......
924 | CALL IGERV2D( CTXT2, K, 1, MEM, K, 0, 0 )
| 1
Error: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
blacstest.f:925:36:

845 | $ CALL IGERV2D( CTXT2, 1, 1, K, 1, I, J )
| 2
......
925 | CALL IGERV2D( CTXT2, K, 1, MEM, K, 0, 0 )
| 1
Error: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
blacstest.f:941:36:

851 | CALL IGESD2D( CTXT2, 1, 1, K, 1, 0, 0 )
| 2
......
941 | CALL IGESD2D( CTXT2, I, J, MEM, LDA, NPROW-1, NPCOL-1 )
| 1
Error: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
blacstest.f:942:36:

851 | CALL IGESD2D( CTXT2, 1, 1, K, 1, 0, 0 )
| 2
......
942 | CALL IGESD2D( CTXT2, I, J, MEM, LDA, NPROW-1, NPCOL-1 )
| 1
Error: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
blacstest.f:943:36:

851 | CALL IGESD2D( CTXT2, 1, 1, K, 1, 0, 0 )
| 2
......
943 | CALL IGESD2D( CTXT2, I, J, MEM, LDA, NPROW-1, NPCOL-1 )
| 1
Error: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
blacstest.f:944:36:

845 | $ CALL IGERV2D( CTXT2, 1, 1, K, 1, I, J )
| 2
......
944 | CALL IGERV2D( CTXT2, I, J, MEM, LDA, NPROW-1, NPCOL-1 )
| 1
Error: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
blacstest.f:945:36:

845 | $ CALL IGERV2D( CTXT2, 1, 1, K, 1, I, J )
| 2
......
945 | CALL IGERV2D( CTXT2, I, J, MEM, LDA, NPROW-1, NPCOL-1 )
| 1
Error: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
blacstest.f:946:36:

845 | $ CALL IGERV2D( CTXT2, 1, 1, K, 1, I, J )
| 2
......
946 | CALL IGERV2D( CTXT2, I, J, MEM, LDA, NPROW-1, NPCOL-1 )
| 1
Error: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
blacstest.f:948:36:

851 | CALL IGESD2D( CTXT2, 1, 1, K, 1, 0, 0 )
| 2
......
948 | CALL IGESD2D( CTXT2, I, J, MEM, LDA, 0, 0 )
| 1
Error: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
blacstest.f:949:36:

851 | CALL IGESD2D( CTXT2, 1, 1, K, 1, 0, 0 )
| 2
......
949 | CALL IGESD2D( CTXT2, I, J, MEM, LDA, 0, 0 )
| 1
Error: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
blacstest.f:950:36:

851 | CALL IGESD2D( CTXT2, 1, 1, K, 1, 0, 0 )
| 2
......
950 | CALL IGESD2D( CTXT2, I, J, MEM, LDA, 0, 0 )
| 1
Error: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
blacstest.f:951:36:

845 | $ CALL IGERV2D( CTXT2, 1, 1, K, 1, I, J )
| 2
......
951 | CALL IGERV2D( CTXT2, I, J, MEM, LDA, 0, 0 )
| 1
Error: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
blacstest.f:952:36:

845 | $ CALL IGERV2D( CTXT2, 1, 1, K, 1, I, J )
| 2
......
952 | CALL IGERV2D( CTXT2, I, J, MEM, LDA, 0, 0 )
| 1
Error: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
blacstest.f:953:36:

845 | $ CALL IGERV2D( CTXT2, 1, 1, K, 1, I, J )
| 2
......
953 | CALL IGERV2D( CTXT2, I, J, MEM, LDA, 0, 0 )
| 1
Error: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
blacstest.f:21454:72:

21454 | $ MEM(ERRIPTR),MEM(ERRDPTR))
| 1
Error: Type mismatch in argument ‘erribuf’ at (1); passed COMPLEX(8) to INTEGER(4)
blacstest.f:21460:72:

21460 | $ ISEED, MEM(VALPTR))
| 1
Error: Type mismatch in argument ‘erribuf’ at (1); passed COMPLEX(8) to INTEGER(4)
blacstest.f:21465:72:

21465 | $ MEM(ERRIPTR), MEM(ERRDPTR))
| 1
Error: Type mismatch in argument ‘erribuf’ at (1); passed COMPLEX(8) to INTEGER(4)
blacstest.f:21479:72:

21479 | $ MEM(ERRIPTR), MEM(ERRDPTR), ISEED)
| 1
Error: Type mismatch in argument ‘ierr’ at (1); passed COMPLEX(8) to INTEGER(4)
blacstest.f:21508:72:

21508 | $ MEM(ERRDPTR), ISEED )
| 1
Error: Type mismatch in argument ‘ierr’ at (1); passed COMPLEX(8) to INTEGER(4)
blacstest.f:10624:39:

8489 | CALL BTRECV(3, 1, NERR2, K, IBTMSGID()+50)
| 2
......
10624 | CALL BTRECV(3, NERR2*6, IERR, K, IBTMSGID()+51)
| 1
Error: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
blacstest.f:10625:39:

8489 | CALL BTRECV(3, 1, NERR2, K, IBTMSGID()+50)
| 2
......
10625 | CALL BTRECV(7, NERR2*2, ZVAL, K, IBTMSGID()+51)
| 1
Error: Type mismatch between actual argument at (1) and actual argument at (2) (COMPLEX(8)/INTEGER(4)).
blacstest.f:10646:35:

8488 | CALL BTSEND(3, 0, K, K, IBTMSGID()+50)
| 2
......
10646 | CALL BTSEND(3, NERR*6, IERR, 0, IBTMSGID()+51)
| 1
Error: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
blacstest.f:10647:35:

8488 | CALL BTSEND(3, 0, K, K, IBTMSGID()+50)
| 2
......
10647 | CALL BTSEND(7, NERR*2, ZVAL, 0, IBTMSGID()+51)
| 1
Error: Type mismatch between actual argument at (1) and actual argument at (2) (COMPLEX(8)/INTEGER(4)).
blacstest.f:18055:72:

18055 | $ MEM(ERRIPTR),MEM(ERRDPTR))
| 1
Error: Type mismatch in argument ‘erribuf’ at (1); passed COMPLEX(8) to INTEGER(4)
blacstest.f:18061:72:

18061 | $ ISEED, MEM(VALPTR))
| 1
Error: Type mismatch in argument ‘erribuf’ at (1); passed COMPLEX(8) to INTEGER(4)
blacstest.f:18066:72:

18066 | $ MEM(ERRIPTR), MEM(ERRDPTR))
| 1
Error: Type mismatch in argument ‘erribuf’ at (1); passed COMPLEX(8) to INTEGER(4)
blacstest.f:18080:72:

18080 | $ MEM(ERRIPTR), MEM(ERRDPTR), ISEED)
| 1
Error: Type mismatch in argument ‘ierr’ at (1); passed COMPLEX(8) to INTEGER(4)
blacstest.f:18109:72:

18109 | $ MEM(ERRDPTR), ISEED )
| 1
Error: Type mismatch in argument ‘ierr’ at (1); passed COMPLEX(8) to INTEGER(4)
blacstest.f:14172:72:

14172 | $ MEM(ERRIPTR),MEM(ERRDPTR))
| 1
Error: Type mismatch in argument ‘erribuf’ at (1); passed COMPLEX(8) to INTEGER(4)
blacstest.f:14177:72:

14177 | $ ISEED)
| 1
Error: Type mismatch in argument ‘erribuf’ at (1); passed COMPLEX(8) to INTEGER(4)
blacstest.f:14191:72:

14191 | $ MEM(ERRIPTR), MEM(ERRDPTR), ISEED)
| 1
Error: Type mismatch in argument ‘ierr’ at (1); passed COMPLEX(8) to INTEGER(4)
blacstest.f:14220:72:

14220 | $ MEM(ERRDPTR), ISEED )
| 1
Error: Type mismatch in argument ‘ierr’ at (1); passed COMPLEX(8) to INTEGER(4)
blacstest.f:20806:72:

20806 | $ MEM(ERRIPTR),MEM(ERRDPTR))
| 1
Error: Type mismatch in argument ‘erribuf’ at (1); passed COMPLEX(4) to INTEGER(4)
blacstest.f:20812:72:

20812 | $ ISEED, MEM(VALPTR))
| 1
Error: Type mismatch in argument ‘erribuf’ at (1); passed COMPLEX(4) to INTEGER(4)
blacstest.f:20817:72:

20817 | $ MEM(ERRIPTR), MEM(ERRDPTR))
| 1
Error: Type mismatch in argument ‘erribuf’ at (1); passed COMPLEX(4) to INTEGER(4)
blacstest.f:20831:72:

20831 | $ MEM(ERRIPTR), MEM(ERRDPTR), ISEED)
| 1
Error: Type mismatch in argument ‘ierr’ at (1); passed COMPLEX(4) to INTEGER(4)
blacstest.f:20860:72:

20860 | $ MEM(ERRDPTR), ISEED )
| 1
Error: Type mismatch in argument ‘ierr’ at (1); passed COMPLEX(4) to INTEGER(4)
blacstest.f:9556:39:

8489 | CALL BTRECV(3, 1, NERR2, K, IBTMSGID()+50)
| 2
......
9556 | CALL BTRECV(3, NERR2*6, IERR, K, IBTMSGID()+51)
| 1
Error: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
blacstest.f:9557:39:

8489 | CALL BTRECV(3, 1, NERR2, K, IBTMSGID()+50)
| 2
......
9557 | CALL BTRECV(5, NERR2*2, CVAL, K, IBTMSGID()+51)
| 1
Error: Type mismatch between actual argument at (1) and actual argument at (2) (COMPLEX(4)/INTEGER(4)).
blacstest.f:9578:35:

8488 | CALL BTSEND(3, 0, K, K, IBTMSGID()+50)
| 2
......
9578 | CALL BTSEND(3, NERR*6, IERR, 0, IBTMSGID()+51)
| 1
Error: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
blacstest.f:9579:35:

8488 | CALL BTSEND(3, 0, K, K, IBTMSGID()+50)
| 2
......
9579 | CALL BTSEND(5, NERR*2, CVAL, 0, IBTMSGID()+51)
| 1
Error: Type mismatch between actual argument at (1) and actual argument at (2) (COMPLEX(4)/INTEGER(4)).
blacstest.f:12582:37:

8489 | CALL BTRECV(3, 1, NERR2, K, IBTMSGID()+50)
| 2
......
12582 | CALL BTRECV( 4, 1, EPS2, I, IBTMSGID()+20 )
| 1
Error: Type mismatch between actual argument at (1) and actual argument at (2) (REAL(4)/INTEGER(4)).
blacstest.f:12586:31:

8488 | CALL BTSEND(3, 0, K, K, IBTMSGID()+50)
| 2
......
12586 | CALL BTSEND( 4, 1, EPS, -1, IBTMSGID()+20 )
| 1
Error: Type mismatch between actual argument at (1) and actual argument at (2) (REAL(4)/INTEGER(4)).
blacstest.f:12588:31:

8488 | CALL BTSEND(3, 0, K, K, IBTMSGID()+50)
| 2
......
12588 | CALL BTSEND( 4, 1, EPS, 0, IBTMSGID()+20 )
| 1
Error: Type mismatch between actual argument at (1) and actual argument at (2) (REAL(4)/INTEGER(4)).
blacstest.f:12589:31:

8489 | CALL BTRECV(3, 1, NERR2, K, IBTMSGID()+50)
| 2
......
12589 | CALL BTRECV( 4, 1, EPS, 0, IBTMSGID()+20 )
| 1
Error: Type mismatch between actual argument at (1) and actual argument at (2) (REAL(4)/INTEGER(4)).
blacstest.f:17238:72:

17238 | $ MEM(ERRIPTR),MEM(ERRDPTR))
| 1
Error: Type mismatch in argument ‘erribuf’ at (1); passed COMPLEX(4) to INTEGER(4)
blacstest.f:17244:72:

17244 | $ ISEED, MEM(VALPTR))
| 1
Error: Type mismatch in argument ‘erribuf’ at (1); passed COMPLEX(4) to INTEGER(4)
blacstest.f:17249:72:

17249 | $ MEM(ERRIPTR), MEM(ERRDPTR))
| 1
Error: Type mismatch in argument ‘erribuf’ at (1); passed COMPLEX(4) to INTEGER(4)
blacstest.f:17263:72:

17263 | $ MEM(ERRIPTR), MEM(ERRDPTR), ISEED)
| 1
Error: Type mismatch in argument ‘ierr’ at (1); passed COMPLEX(4) to INTEGER(4)
blacstest.f:17292:72:

17292 | $ MEM(ERRDPTR), ISEED )
| 1
Error: Type mismatch in argument ‘ierr’ at (1); passed COMPLEX(4) to INTEGER(4)
blacstest.f:13623:72:

13623 | $ MEM(ERRIPTR),MEM(ERRDPTR))
| 1
Error: Type mismatch in argument ‘erribuf’ at (1); passed COMPLEX(4) to INTEGER(4)
blacstest.f:13628:72:

13628 | $ ISEED)
| 1
Error: Type mismatch in argument ‘erribuf’ at (1); passed COMPLEX(4) to INTEGER(4)
blacstest.f:13642:72:

13642 | $ MEM(ERRIPTR), MEM(ERRDPTR), ISEED)
| 1
Error: Type mismatch in argument ‘ierr’ at (1); passed COMPLEX(4) to INTEGER(4)
blacstest.f:13671:72:

13671 | $ MEM(ERRDPTR), ISEED )
| 1
Error: Type mismatch in argument ‘ierr’ at (1); passed COMPLEX(4) to INTEGER(4)
blacstest.f:19514:72:

19514 | $ MEM(ERRIPTR),MEM(ERRDPTR))
| 1
Error: Type mismatch in argument ‘erribuf’ at (1); passed REAL(4) to INTEGER(4)
blacstest.f:19520:72:

19520 | $ ISEED, MEM(VALPTR))
| 1
Error: Type mismatch in argument ‘erribuf’ at (1); passed REAL(4) to INTEGER(4)
blacstest.f:19525:72:

19525 | $ MEM(ERRIPTR), MEM(ERRDPTR))
| 1
Error: Type mismatch in argument ‘erribuf’ at (1); passed REAL(4) to INTEGER(4)
blacstest.f:19539:72:

19539 | $ MEM(ERRIPTR), MEM(ERRDPTR), ISEED)
| 1
Error: Type mismatch in argument ‘ierr’ at (1); passed REAL(4) to INTEGER(4)
blacstest.f:19568:72:

19568 | $ MEM(ERRDPTR), ISEED )
| 1
Error: Type mismatch in argument ‘ierr’ at (1); passed REAL(4) to INTEGER(4)
blacstest.f:7428:39:

7428 | CALL BTRECV(3, NERR2*6, IERR, K, IBTMSGID()+51)
| 1
......
8489 | CALL BTRECV(3, 1, NERR2, K, IBTMSGID()+50)
| 2
Error: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
blacstest.f:7429:39:

7429 | CALL BTRECV(4, NERR2*2, SVAL, K, IBTMSGID()+51)
| 1
......
8489 | CALL BTRECV(3, 1, NERR2, K, IBTMSGID()+50)
| 2
Error: Type mismatch between actual argument at (1) and actual argument at (2) (REAL(4)/INTEGER(4)).
blacstest.f:7450:35:

7450 | CALL BTSEND(3, NERR*6, IERR, 0, IBTMSGID()+51)
| 1
......
8488 | CALL BTSEND(3, 0, K, K, IBTMSGID()+50)
| 2
Error: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
blacstest.f:7451:35:

7451 | CALL BTSEND(4, NERR*2, SVAL, 0, IBTMSGID()+51)
| 1
......
8488 | CALL BTSEND(3, 0, K, K, IBTMSGID()+50)
| 2
Error: Type mismatch between actual argument at (1) and actual argument at (2) (REAL(4)/INTEGER(4)).
blacstest.f:15608:72:

15608 | $ MEM(ERRIPTR),MEM(ERRDPTR))
| 1
Error: Type mismatch in argument ‘erribuf’ at (1); passed REAL(4) to INTEGER(4)
blacstest.f:15614:72:

15614 | $ ISEED, MEM(VALPTR))
| 1
Error: Type mismatch in argument ‘erribuf’ at (1); passed REAL(4) to INTEGER(4)
blacstest.f:15619:72:

15619 | $ MEM(ERRIPTR), MEM(ERRDPTR))
| 1
Error: Type mismatch in argument ‘erribuf’ at (1); passed REAL(4) to INTEGER(4)
blacstest.f:15633:72:

15633 | $ MEM(ERRIPTR), MEM(ERRDPTR), ISEED)
| 1
Error: Type mismatch in argument ‘ierr’ at (1); passed REAL(4) to INTEGER(4)
blacstest.f:15662:72:

15662 | $ MEM(ERRDPTR), ISEED )
| 1
Error: Type mismatch in argument ‘ierr’ at (1); passed REAL(4) to INTEGER(4)
blacstest.f:12467:72:

12467 | $ MEM(ERRIPTR),MEM(ERRDPTR))
| 1
Error: Type mismatch in argument ‘erribuf’ at (1); passed REAL(4) to INTEGER(4)
blacstest.f:12472:72:

12472 | $ ISEED)
| 1
Error: Type mismatch in argument ‘erribuf’ at (1); passed REAL(4) to INTEGER(4)
blacstest.f:12486:72:

12486 | $ MEM(ERRIPTR), MEM(ERRDPTR), ISEED)
| 1
Error: Type mismatch in argument ‘ierr’ at (1); passed REAL(4) to INTEGER(4)
blacstest.f:12515:72:

12515 | $ MEM(ERRDPTR), ISEED )
| 1
Error: Type mismatch in argument ‘ierr’ at (1); passed REAL(4) to INTEGER(4)
blacstest.f:6359:39:

6359 | CALL BTRECV(3, NERR2*6, IERR, K, IBTMSGID()+51)
| 1
......
8489 | CALL BTRECV(3, 1, NERR2, K, IBTMSGID()+50)
| 2
Error: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
blacstest.f:6360:39:

6360 | CALL BTRECV(3, NERR2*2, IVAL, K, IBTMSGID()+51)
| 1
......
8489 | CALL BTRECV(3, 1, NERR2, K, IBTMSGID()+50)
| 2
Error: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
blacstest.f:6381:35:

6381 | CALL BTSEND(3, NERR*6, IERR, 0, IBTMSGID()+51)
| 1
......
8488 | CALL BTSEND(3, 0, K, K, IBTMSGID()+50)
| 2
Error: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
blacstest.f:6382:35:

6382 | CALL BTSEND(3, NERR*2, IVAL, 0, IBTMSGID()+51)
| 1
......
8488 | CALL BTSEND(3, 0, K, K, IBTMSGID()+50)
| 2
Error: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
blacstest.f:1102:28:

1102 | CALL BTSEND( 3, 2, ITMP, -1, IBTMSGID()+3 )
| 1
......
8488 | CALL BTSEND(3, 0, K, K, IBTMSGID()+50)
| 2
Error: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
blacstest.f:1112:43:

1112 | CALL BTSEND( 3, MEMUSED+CMEMUSED, MEM, -1, IBTMSGID()+4 )
| 1
......
8488 | CALL BTSEND(3, 0, K, K, IBTMSGID()+50)
| 2
Error: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
blacstest.f:1114:28:

1114 | CALL BTRECV( 3, 2, ITMP, 0, IBTMSGID()+3 )
| 1
......
8489 | CALL BTRECV(3, 1, NERR2, K, IBTMSGID()+50)
| 2
Error: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
blacstest.f:1118:46:

1118 | CALL BTRECV( 3, MEMUSED+CMEMUSED, MEM, 0, IBTMSGID()+4 )
| 1
......
8489 | CALL BTRECV(3, 1, NERR2, K, IBTMSGID()+50)
| 2
Error: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
blacstest.f:5912:72:

5912 | $ MEM(ERRDPTR))
| 1
Error: Type mismatch in argument ‘erribuf’ at (1); passed COMPLEX(8) to INTEGER(4)
blacstest.f:5918:72:

5918 | $ MEM(ERRIPTR), MEM(ERRDPTR))
| 1
Error: Type mismatch in argument ‘erribuf’ at (1); passed COMPLEX(8) to INTEGER(4)
blacstest.f:5928:72:

5928 | $ TFAIL)
| 1
Error: Type mismatch in argument ‘ierr’ at (1); passed COMPLEX(8) to INTEGER(4)
blacstest.f:5959:72:

5959 | $ MEM(ERRDPTR), TFAIL )
| 1
Error: Type mismatch in argument ‘ierr’ at (1); passed COMPLEX(8) to INTEGER(4)
blacstest.f:5497:72:

5497 | $ MEM(ERRDPTR))
| 1
Error: Type mismatch in argument ‘erribuf’ at (1); passed COMPLEX(4) to INTEGER(4)
blacstest.f:5503:72:

5503 | $ MEM(ERRIPTR), MEM(ERRDPTR))
| 1
Error: Type mismatch in argument ‘erribuf’ at (1); passed COMPLEX(4) to INTEGER(4)
blacstest.f:5513:72:

5513 | $ TFAIL)
| 1
Error: Type mismatch in argument ‘ierr’ at (1); passed COMPLEX(4) to INTEGER(4)
blacstest.f:5544:72:

5544 | $ MEM(ERRDPTR), TFAIL )
| 1
Error: Type mismatch in argument ‘ierr’ at (1); passed COMPLEX(4) to INTEGER(4)
blacstest.f:5082:72:

5082 | $ MEM(ERRDPTR))
| 1
Error: Type mismatch in argument ‘erribuf’ at (1); passed REAL(8) to INTEGER(4)
blacstest.f:5088:72:

5088 | $ MEM(ERRIPTR), MEM(ERRDPTR))
| 1
Error: Type mismatch in argument ‘erribuf’ at (1); passed REAL(8) to INTEGER(4)
blacstest.f:5098:72:

5098 | $ TFAIL)
| 1
Error: Type mismatch in argument ‘ierr’ at (1); passed REAL(8) to INTEGER(4)
blacstest.f:5129:72:

5129 | $ MEM(ERRDPTR), TFAIL )
| 1
Error: Type mismatch in argument ‘ierr’ at (1); passed REAL(8) to INTEGER(4)
blacstest.f:4667:72:

4667 | $ MEM(ERRDPTR))
| 1
Error: Type mismatch in argument ‘erribuf’ at (1); passed REAL(4) to INTEGER(4)
blacstest.f:4673:72:

4673 | $ MEM(ERRIPTR), MEM(ERRDPTR))
| 1
Error: Type mismatch in argument ‘erribuf’ at (1); passed REAL(4) to INTEGER(4)
blacstest.f:4683:72:

4683 | $ TFAIL)
| 1
Error: Type mismatch in argument ‘ierr’ at (1); passed REAL(4) to INTEGER(4)
blacstest.f:4714:72:

4714 | $ MEM(ERRDPTR), TFAIL )
| 1
Error: Type mismatch in argument ‘ierr’ at (1); passed REAL(4) to INTEGER(4)
blacstest.f:3845:72:

3845 | $ NERR, MEM(ERRIPTR), MEM(ERRDPTR) )
| 1
Error: Type mismatch in argument ‘erribuf’ at (1); passed COMPLEX(8) to INTEGER(4)
blacstest.f:3850:72:

3850 | $ MEM(ERRIPTR), MEM(ERRDPTR) )
| 1
Error: Type mismatch in argument ‘erribuf’ at (1); passed COMPLEX(8) to INTEGER(4)
blacstest.f:3858:72:

3858 | $ TFAIL )
| 1
Error: Type mismatch in argument ‘ierr’ at (1); passed COMPLEX(8) to INTEGER(4)
blacstest.f:3884:72:

3884 | $ MEM(ERRDPTR), TFAIL )
| 1
Error: Type mismatch in argument ‘ierr’ at (1); passed COMPLEX(8) to INTEGER(4)
blacstest.f:1379:32:

225 | CALL BLACS_GET( 0, 2, I )
| 2
......
1379 | CALL BLACS_GET( -1, 1, ITMP )
| 1
Error: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
blacstest.f:1382:32:

777 | CALL BLACS_SET(CTXT, 15, J)
| 2
......
1382 | CALL BLACS_SET( -1, 1, ITMP )
| 1
Error: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
blacstest.f:3501:72:

3501 | $ NERR, MEM(ERRIPTR), MEM(ERRDPTR) )
| 1
Error: Type mismatch in argument ‘erribuf’ at (1); passed COMPLEX(4) to INTEGER(4)
blacstest.f:3506:72:

3506 | $ MEM(ERRIPTR), MEM(ERRDPTR) )
| 1
Error: Type mismatch in argument ‘erribuf’ at (1); passed COMPLEX(4) to INTEGER(4)
blacstest.f:3514:72:

3514 | $ TFAIL )
| 1
Error: Type mismatch in argument ‘ierr’ at (1); passed COMPLEX(4) to INTEGER(4)
blacstest.f:3540:72:

3540 | $ MEM(ERRDPTR), TFAIL )
| 1
Error: Type mismatch in argument ‘ierr’ at (1); passed COMPLEX(4) to INTEGER(4)
blacstest.f:3157:72:

3157 | $ NERR, MEM(ERRIPTR), MEM(ERRDPTR) )
| 1
Error: Type mismatch in argument ‘erribuf’ at (1); passed REAL(8) to INTEGER(4)
blacstest.f:3162:72:

3162 | $ MEM(ERRIPTR), MEM(ERRDPTR) )
| 1
Error: Type mismatch in argument ‘erribuf’ at (1); passed REAL(8) to INTEGER(4)
blacstest.f:3170:72:

3170 | $ TFAIL )
| 1
Error: Type mismatch in argument ‘ierr’ at (1); passed REAL(8) to INTEGER(4)
blacstest.f:3196:72:

3196 | $ MEM(ERRDPTR), TFAIL )
| 1
Error: Type mismatch in argument ‘ierr’ at (1); passed REAL(8) to INTEGER(4)
blacstest.f:2813:72:

2813 | $ NERR, MEM(ERRIPTR), MEM(ERRDPTR) )
| 1
Error: Type mismatch in argument ‘erribuf’ at (1); passed REAL(4) to INTEGER(4)
blacstest.f:2818:72:

2818 | $ MEM(ERRIPTR), MEM(ERRDPTR) )
| 1
Error: Type mismatch in argument ‘erribuf’ at (1); passed REAL(4) to INTEGER(4)
blacstest.f:2826:72:

2826 | $ TFAIL )
| 1
Error: Type mismatch in argument ‘ierr’ at (1); passed REAL(4) to INTEGER(4)
blacstest.f:2852:72:

2852 | $ MEM(ERRDPTR), TFAIL )
| 1
Error: Type mismatch in argument ‘ierr’ at (1); passed REAL(4) to INTEGER(4)
blacstest.f:70:31:

70 | CALL BLACS_GET( 0, 0, ITMP )
| 1
......
225 | CALL BLACS_GET( 0, 2, I )
| 2
Error: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
blacstest.f:71:29:

71 | CALL BLACS_GRIDINIT(ITMP, 'c', 1, NNODES)
| 1
......
734 | CALL BLACS_GRIDINIT( CTXT, 'r', 1, NPROCS )
| 2
Error: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
blacstest.f:72:29:

72 | CALL BLACS_GRIDEXIT(ITMP)
| 1
......
995 | CALL BLACS_GRIDEXIT(CTXT)
| 2
Error: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
blacstest.f:97:28:

97 | CALL BTSEND( 3, 2, ITMP, -1, IBTMSGID() )
| 1
......
8488 | CALL BTSEND(3, 0, K, K, IBTMSGID()+50)
| 2
Error: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
blacstest.f:118:28:

118 | CALL BTSEND( 3, 9, IPREC, -1, IBTMSGID()+1 )
| 1
......
8488 | CALL BTSEND(3, 0, K, K, IBTMSGID()+50)
| 2
Error: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
blacstest.f:120:28:

120 | CALL BTRECV( 3, 2, ITMP, 0, IBTMSGID() )
| 1
......
8489 | CALL BTRECV(3, 1, NERR2, K, IBTMSGID()+50)
| 2
Error: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
blacstest.f:123:28:

123 | CALL BTRECV( 3, 9, IPREC, 0, IBTMSGID()+1 )
| 1
......
8489 | CALL BTRECV(3, 1, NERR2, K, IBTMSGID()+50)
| 2
Error: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
blacstest.f:151:72:

151 | $ VERB, TESTSDRV, TESTBSBR, TESTCOMB, TESTAUX )
| 1
Error: Type mismatch in argument ‘mem’ at (1); passed REAL(8) to INTEGER(4)
blacstest.f:13045:72:

13045 | $ MEM(ERRIPTR),MEM(ERRDPTR))
| 1
Error: Type mismatch in argument ‘erribuf’ at (1); passed REAL(8) to INTEGER(4)
blacstest.f:13050:72:

13050 | $ ISEED)
| 1
Error: Type mismatch in argument ‘erribuf’ at (1); passed REAL(8) to INTEGER(4)
blacstest.f:13064:72:

13064 | $ MEM(ERRIPTR), MEM(ERRDPTR), ISEED)
| 1
Error: Type mismatch in argument ‘ierr’ at (1); passed REAL(8) to INTEGER(4)
blacstest.f:13093:72:

13093 | $ MEM(ERRDPTR), ISEED )
| 1
Error: Type mismatch in argument ‘ierr’ at (1); passed REAL(8) to INTEGER(4)
blacstest.f:16423:72:

16423 | $ MEM(ERRIPTR),MEM(ERRDPTR))
| 1
Error: Type mismatch in argument ‘erribuf’ at (1); passed REAL(8) to INTEGER(4)
blacstest.f:16429:72:

16429 | $ ISEED, MEM(VALPTR))
| 1
Error: Type mismatch in argument ‘erribuf’ at (1); passed REAL(8) to INTEGER(4)
blacstest.f:16434:72:

16434 | $ MEM(ERRIPTR), MEM(ERRDPTR))
| 1
Error: Type mismatch in argument ‘erribuf’ at (1); passed REAL(8) to INTEGER(4)
blacstest.f:16448:72:

16448 | $ MEM(ERRIPTR), MEM(ERRDPTR), ISEED)
| 1
Error: Type mismatch in argument ‘ierr’ at (1); passed REAL(8) to INTEGER(4)
blacstest.f:16477:72:

16477 | $ MEM(ERRDPTR), ISEED )
| 1
Error: Type mismatch in argument ‘ierr’ at (1); passed REAL(8) to INTEGER(4)
blacstest.f:20160:72:

20160 | $ MEM(ERRIPTR),MEM(ERRDPTR))
| 1
Error: Type mismatch in argument ‘erribuf’ at (1); passed REAL(8) to INTEGER(4)
blacstest.f:20166:72:

20166 | $ ISEED, MEM(VALPTR))
| 1
Error: Type mismatch in argument ‘erribuf’ at (1); passed REAL(8) to INTEGER(4)
blacstest.f:20171:72:

20171 | $ MEM(ERRIPTR), MEM(ERRDPTR))
| 1
Error: Type mismatch in argument ‘erribuf’ at (1); passed REAL(8) to INTEGER(4)
blacstest.f:20185:72:

20185 | $ MEM(ERRIPTR), MEM(ERRDPTR), ISEED)
| 1
Error: Type mismatch in argument ‘ierr’ at (1); passed REAL(8) to INTEGER(4)
blacstest.f:20214:72:

20214 | $ MEM(ERRDPTR), ISEED )
| 1
Error: Type mismatch in argument ‘ierr’ at (1); passed REAL(8) to INTEGER(4)
make: *** [Makefile:37: blacstest.o] Error 1

[zerothi]

Duplicate of #73 , should be closed

[mgates3]

@cniethammer Are you building with CMake or Makefile? I think this issue should be fixed with CMake, per #26 and #51. CMake sets -std=legacy inside the TESTING directories.

[cniethammer]

Thanks for following up! I was building using the Makefile.
Since my PR with the code fix has already been merged, this specific issue has been resolved.

Regarding your suggestion:
I tried using CMake, but it’s not working for me at the moment as I’m already on CMake 4. I’ll open a separate issue for that shortly. (Opened this in #135)

Personally, I prefer to maintain standards-compliant code rather than disable checks for deprecated language or library features.