topic Re:Compiler bug in Intel® Fortran Compiler

Compiler bug

OP1 — Fri, 14 Feb 2020 19:19:11 GMT

This was brought to my attention by a colleague. This code produces a randomly truncated output - and we think that the compiler should detect the interface inconsistency for S.

MODULE M
INTERFACE
    MODULE SUBROUTINE S(C)
    IMPLICIT NONE
    CHARACTER(LEN=:),ALLOCATABLE,INTENT(IN) :: C
    END SUBROUTINE S
END INTERFACE    
END MODULE M

SUBMODULE (M) SM
CONTAINS
    MODULE SUBROUTINE S(C)
    IMPLICIT NONE
    CHARACTER(LEN=*),ALLOCATABLE,INTENT(IN) :: C
    WRITE(*,*) C
    END SUBROUTINE S
END SUBMODULE SM

PROGRAM P
USE M
IMPLICIT NONE
CHARACTER(LEN=:),ALLOCATABLE :: STRING
STRING = 'Ha ha!'
CALL S(STRING)
END PROGRAM P

I agree - this is an error

Steve_Lionel — Fri, 14 Feb 2020 19:33:12 GMT

I agree - this is an error the compiler should catch. Please submit it to the Intel Online Service Center.

Thanks - I did open a support

OP1 — Fri, 14 Feb 2020 20:26:14 GMT

Thanks - I did open a support ticket.

Re:Compiler bug

Barbara_P_Intel — Mon, 03 Aug 2020 22:08:11 GMT

This bug you reported where the compiler failed to detect the interface inconsistency in module/submodule has been fixed. The fix is available as part of PSXE 2020 update 2 (Fortran 19.1.2) that was released last month.

Please check it out!