Code: Select all
rumba-jj) f90/vers
VSI Fortran X8.5-0004 (GEM 50X6F) for X86 systems
rumba-jj) ty test.f90
subroutine test(buf, dims)
INTEGER(8), INTENT(IN), DIMENSION(*) :: dims
INTEGER, INTENT(INOUT), &
DIMENSION(dims(1),dims(2)) :: buf
END subroutine test
23-JUN-2023 16:34:07
rumba-jj) f90 test.f90
Integrity check error: Illegal result type (INT64) for operand 2 of STORE ...
STORE.INT32 (var$0003, 03EE4148 : &ADDRESS=03EE41A0, LOCATOR={4:24},
PREV_TUPLE=03EE4148, NEXT_TUPLE=03EE41F8, MARK1, BASE_SYMBOL=
var$0003 : NULL)
Integrity check error: Illegal result type (INT64) for operand 2 of STORE ...
STORE.INT32 (var$0002, 03EE4290 : &ADDRESS=03EE42E8, LOCATOR={4:32},
PREV_TUPLE=03EE4290, NEXT_TUPLE=03EE4340, MARK1, BASE_SYMBOL=
var$0002 : NULL)
Compilation terminated because of GEM integrity check errors
rum
This looks similar to something I reported on the C-compiler:
viewtopic.php?f=12&t=8649