[Bug fortran/99146] New: ICE in gfc_find_specific_dtio_proc

[Bug fortran/99146] New: ICE in gfc_find_specific_dtio_proc

[zeccav at gmail dot com]

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

[Bug fortran/99146] ICE in gfc_find_specific_dtio_proc

[cvs-commit at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=99146

--- Comment #1 from CVS Commits <cvs-commit at gcc dot gnu.org> ---
The master branch has been updated by Tobias Burnus <burnus@gcc.gnu.org>:

https://gcc.gnu.org/g:72d91d6cd41f2987339a98c2c64f70b3850f4e0b

commit r11-7298-g72d91d6cd41f2987339a98c2c64f70b3850f4e0b
Author: Tobias Burnus <tobias@codesourcery.com>
Date:   Fri Feb 19 18:05:31 2021 +0100

    Fortran: Fix DTIO with type ICE [PR99146]

    gcc/fortran/ChangeLog:

            PR fortran/99146
            * interface.c:

    gcc/testsuite/ChangeLog:

            PR fortran/99146
            * gfortran.dg/dtio_36.f90: New test.

[Bug fortran/99146] ICE in gfc_find_specific_dtio_proc

[burnus at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=99146

Tobias Burnus <burnus at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
         Resolution|---                         |FIXED
             Status|UNCONFIRMED                 |RESOLVED
                 CC|                            |burnus at gcc dot gnu.org

--- Comment #2 from Tobias Burnus <burnus at gcc dot gnu.org> ---
FIXED on mainline (GCC 11).

Thanks for the report!