scalapack
scalapack copied to clipboard
Reference-ScaLAPACK
Argument mismatches
I tried to build and test the latest master branch version (8435bf3bc435d9611d096abab46ebf6beb1d35ea) 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 https://github.com/Reference-ScaLAPACK/scalapack/pull/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
