[Bug fortran/77534] New: ICE in check_dtio_arg_TKR_intent, at fortran/interface.c:4572

[gerhard.steinmetz.fortran@t-online.de]

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

            Bug ID: 77534
           Summary: ICE in check_dtio_arg_TKR_intent, at
                    fortran/interface.c:4572
           Product: gcc
           Version: 7.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: gerhard.steinmetz.fortran@t-online.de
  Target Milestone: ---

With a nonpolymorphic dtv :


$ cat z1.f90
module m
   type t
   end type
   interface read(unformatted)
      module procedure s
   end interface
contains
   subroutine s(dtv)
      type(t), intent(inout) :: dtv
   end
end


$ gfortran-7-20160904 z1.f90
z1.f90:8:19:

    subroutine s(dtv)
                   1
Error: DTIO dummy argument at (1) must be of type CLASS
f951: internal compiler error: Segmentation fault
0xc2100f crash_signal
        ../../gcc/toplev.c:336
0x6926db check_dtio_arg_TKR_intent
        ../../gcc/fortran/interface.c:4572
0x6927f9 check_dtio_interface1
        ../../gcc/fortran/interface.c:4662
0x69a2d8 gfc_check_dtio_interfaces(gfc_symbol*)
        ../../gcc/fortran/interface.c:4741
0x70c87b do_traverse_symtree
        ../../gcc/fortran/symbol.c:3939
0x6f65c0 resolve_types
        ../../gcc/fortran/resolve.c:15658
0x6f1d9c gfc_resolve(gfc_namespace*)
        ../../gcc/fortran/resolve.c:15730
0x6dd3a4 gfc_parse_file()
        ../../gcc/fortran/parse.c:6056
0x71f602 gfc_be_parse_file
        ../../gcc/fortran/f95-lang.c:198