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.fort...@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
