VSI OpenVMS Forum

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