Error: Rank mismatch between actual argument at (1) and actual argument at (2) (rank-1 and scalar)
Fortran from gcc-9 fails:
mpif90 -c -O3 pimd_module.f
pimd_module.f:1202:11:
1202 | do k=nbeads-1,2,-1
| ^
Warning: iteration 2147483648 invokes undefined behavior [-Waggressive-loop-optimizations]
pimd_module.f:1202:11: note: within this loop
pimd_module.f:1136:11:
1136 | do k=nbeads-1,2,-1
| ^
Warning: iteration 2147483648 invokes undefined behavior [-Waggressive-loop-optimizations]
pimd_module.f:1136:11: note: within this loop
mpif90 -c -O3 metafreeze_module.f
metafreeze_module.f:297:49:
297 | if ( commsize > 1 ) call gdsum(eng_loc,1,buff1)
| 1
......
3075 | call gdsum(zeta_global(1),ntet,buff1(1:ntet))
| 2
Error: Rank mismatch between actual argument at (1) and actual argument at (2) (rank-1 and scalar)
metafreeze_module.f:298:49:
298 | if ( commsize > 1 ) call gdsum(vir_loc,1,buff1)
| 1
......
3075 | call gdsum(zeta_global(1),ntet,buff1(1:ntet))
| 2
Error: Rank mismatch between actual argument at (1) and actual argument at (2) (rank-1 and scalar)
metafreeze_module.f:451:46:
451 | if ( commsize > 1 ) call gdsum(virord,1,buff1)
| 1
......
3075 | call gdsum(zeta_global(1),ntet,buff1(1:ntet))
| 2
OS: FreeBSD 12.2 Version: 1.10