Add version test on GNU compiler
Description
Description
Details
Details
- Committed
lanti Feb 20 2024, 16:40 - Pushed
lanti Feb 20 2024, 16:40 - Parents
- rSPCLIBS936aa75f88f7: Merge branch 'feature/add_atomic_updtmat'
- Branches
- Unknown
- Tags
- References
- HEAD -> master
Event Timeline
Comment Actions
Even better would be fixing standards-compliance in bsplines ;-)
But I think that would mandate use of mpi_f08, which we should definitely keep optional.
Comment Actions
(Actually I'm not sure if the violations are MPI related or not. It's possible that they're self-contained in SPClibs).
Comment Actions
Since we're anyway updating SPClibs, can we rename .f90 to .F90? :)
Since we have ifdefs present, I think it makes more sense.
Comment Actions
argument mismatch warnings:
mpifort -O0 -g -fcheck=all -finit-real=zero -ffpe-trap=invalid,zero,overflow -fallow-argument-mismatch -cpp -fPIC -I. -I/home/thay/src/orb5_spc/library/futils/include/O -I/usr/lib/x86_64-linux-gnu/hdf5/openmpi//include -c matrix.f90
matrix.f90:3122:67:
3122 | CALL zgbmv(trans_loc, m, n, kl, ku, one, mat%val(kl+1,1), lda, x, 1, zero,&
| 1
......
3154 | & x(1,k), 1, zero, vmx(1,k), 1)
| 2
Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
matrix.f90:2827:67:
2827 | CALL dgbmv(trans_loc, m, n, kl, ku, one, mat%val(kl+1,1), lda, x, 1, zero,&
| 1
......
3035 | & x(1,k), 1, zero, vmx(1,k), 1)
| 2
Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)mpifort -cpp -O0 -g -fcheck=all -finit-real=zero -ffpe-trap=invalid,zero,overflow -fallow-argument-mismatch -cpp -fPIC -I. -I/home/thay/src/orb5_spc/library/futils/include/O -I/usr/lib/x86_64-linux-gnu/hdf5/openmpi//include -c pardiso_mod.f90
p2p_mat.tpl:61:21:
59 | CALL mpi_pack(mat%irow, nrank+1, MPI_INTEGER, sbuf, bufsize, position, comm, ierr)
| 2
60 | CALL mpi_pack(mat%cols, nnz, MPI_INTEGER, sbuf, bufsize, position, comm, ierr)
61 | CALL mpi_pack(mat%val, nnz, mpi_type, sbuf, bufsize, position, comm, ierr)
| 1
Warning: Type mismatch between actual argument at (1) and actual argument at (2) (COMPLEX(8)/INTEGER(4)).
p2p_mat.tpl:88:28:
41 | CALL mpi_sendrecv(nnz, 1, MPI_INTEGER, dest, 0, &
| 2
......
88 | CALL mpi_sendrecv(sbuf, position, MPI_PACKED, dest, 0, &
| 1
Warning: Type mismatch between actual argument at (1) and actual argument at (2) (CHARACTER(1)/INTEGER(4)).
p2p_mat.tpl:101:48:
99 | CALL mpi_unpack(rbuf, bufsize, position, irow, nrank+1, MPI_INTEGER, comm, ierr)
| 2
100 | CALL mpi_unpack(rbuf, bufsize, position, cols, nnz_rem, MPI_INTEGER, comm, ierr)
101 | CALL mpi_unpack(rbuf, bufsize, position, val, nnz_rem, mpi_type, comm, ierr)
| 1
Warning: Type mismatch between actual argument at (1) and actual argument at (2) (COMPLEX(8)/INTEGER(4)).
pardiso_mod.f90:1287:43:
1287 | & mat%p%phase, mat%rank, mat%val, mat%irow, mat%cols, &
| 1
......
1316 | & mat%p%phase, mat%rank, mat%val, mat%irow, mat%cols, &
| 2
Warning: Type mismatch between actual argument at (1) and actual argument at (2) (REAL(8)/COMPLEX(8)).
pardiso_mod.f90:1082:20:
1082 | & rhs, sol, mat%p%error)
| 1
......
1318 | & dummy, dummy, mat%p%error)
| 2
Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-2)
pardiso_mod.f90:1088:20:
1088 | & rhs, dummy, mat%p%error)
| 1
......
1318 | & dummy, dummy, mat%p%error)
| 2
Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-2)
pardiso_mod.f90:1004:20:
1004 | & rhs, sol, mat%p%error)
| 1
......
1318 | & dummy, dummy, mat%p%error)
| 2
Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)
pardiso_mod.f90:1010:20:
1010 | & rhs, dummy, mat%p%error)
| 1
......
1318 | & dummy, dummy, mat%p%error)
| 2
Warning: Rank mismatch between actual argument at (1) and actual argument at (2) (scalar and rank-1)