https://gcc.gnu.org/bugzilla/show_bug.cgi?id=99146
Bug ID: 99146
Summary: ICE in gfc_find_specific_dtio_proc
Product: gcc
Version: 11.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: zeccav at gmail dot com
Target Milestone: ---
! gfortran trunk 150221 ICE SIGSEGV
MODULE p
TYPE :: person
sequence
END TYPE person
INTERFACE READ(UNFORMATTED)
MODULE PROCEDURE pruf
END INTERFACE
CONTAINS
SUBROUTINE pruf (dtv,unit,iostat,iomsg)
type(person), INTENT(INOUT) :: dtv
INTEGER, INTENT(IN) :: unit
INTEGER, INTENT(OUT) :: iostat
CHARACTER (LEN=*), INTENT(INOUT) :: iomsg
END SUBROUTINE pruf
END MODULE p
PROGRAM test
USE p
TYPE (person) :: chairman
OPEN (UNIT=71, status = 'scratch', FORM='UNFORMATTED')
read(71) chairman
END PROGRAM test
!f951: internal compiler error: Segmentation fault
!0xe79f4f crash_signal
! ../../gcc-150221/gcc/toplev.c:327
!0x85bb23 gfc_find_specific_dtio_proc(gfc_symbol*, bool, bool)
! ../../gcc-150221/gcc/fortran/interface.c:5308
!0x8ce3fb resolve_transfer
! ../../gcc-150221/gcc/fortran/resolve.c:9934
!0x8ce3fb gfc_resolve_code(gfc_code*, gfc_namespace*)
! ../../gcc-150221/gcc/fortran/resolve.c:12154
!0x8cf8b7 gfc_resolve_blocks(gfc_code*, gfc_namespace*)
! ../../gcc-150221/gcc/fortran/resolve.c:10834
!0x8ccea6 gfc_resolve_code(gfc_code*, gfc_namespace*)
! ../../gcc-150221/gcc/fortran/resolve.c:11802
!0x8d13b7 resolve_codes
! ../../gcc-150221/gcc/fortran/resolve.c:17378
!0x8bca0e gfc_resolve(gfc_namespace*)
! ../../gcc-150221/gcc/fortran/resolve.c:17413
!0x8bca0e gfc_resolve(gfc_namespace*)
! ../../gcc-150221/gcc/fortran/resolve.c:17392
!0x8af2f0 resolve_all_program_units
! ../../gcc-150221/gcc/fortran/parse.c:6290
!0x8af2f0 gfc_parse_file()
! ../../gcc-150221/gcc/fortran/parse.c:6542
!0x9010ef gfc_be_parse_file
! ../../gcc-150221/gcc/fortran/f95-lang.c:212
