https://gcc.gnu.org/bugzilla/show_bug.cgi?id=90937
Bug ID: 90937
Summary: internal compiler error: in gfc_get_symbol_decl, at
fortran/trans-decl.c:1538
Product: gcc
Version: 10.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: toon at moene dot org
Target Milestone: ---
Compiling he following code leads to the ICE in the summary:
SUBROUTINE LFIDIFF
IMPLICIT NONE
INTEGER, PARAMETER :: JPIM = SELECTED_INT_KIND(9)
CONTAINS
SUBROUTINE FRLFI (KLUN, KLON, CDNOM, CDF)
INTEGER (KIND=JPIM), INTENT (IN) :: KLUN
INTEGER (KIND=JPIM), POINTER :: KLON (:)
CHARACTER (LEN=*), POINTER :: CDNOM (:)
CHARACTER (LEN=*), INTENT (IN) :: CDF
INTEGER (KIND=JPIM) :: IREP
CALL LFIFER(IREP,KLUN,'KEEP')
END SUBROUTINE FRLFI
SUBROUTINE GRLFI (KLUN, KLON, CDNOM, CDF)
INTEGER (KIND=JPIM), INTENT (IN) :: KLUN
INTEGER (KIND=JPIM), POINTER :: KLON (:)
CHARACTER (LEN=*), POINTER :: CDNOM (:)
CHARACTER (LEN=*), INTENT (IN) :: CDF
INTEGER(KIND=JPIM) :: IREP
INTEGER(KIND=JPIM) :: ILONG, IPOSEX
CHARACTER(LEN=LEN(CDNOM)) :: CLNOMA
CALL LFICAS(IREP,KLUN,CLNOMA,ILONG,IPOSEX,.TRUE.)
END SUBROUTINE GRLFI
END SUBROUTINE LFIDIFF
It fails in the same way using 8.3.0.
