FORTRAN on X86: Integrity check error: Illegal result type

[joukj]

I found the following:

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

[jreagan]

Thanks. I've put it on the list.

These FT compilers have integrity checkers that are normally not included in the production Alpha and Itanium compilers. For all I know, it might be a bug there too just not detected. I'll let you know.

[joukj]

I do not get the message anymore in the new Fortran compiler (X8.5-006)

thanks
Jouk