[Bug fortran/90937] New: internal compiler error: in gfc_get_symbol_decl, at fortran/trans-decl.c:1538

[toon at moene dot org]

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.