https://gcc.gnu.org/bugzilla/show_bug.cgi?id=106946
Bug ID: 106946
Summary: [10/11/12/13 Regression] ICE in resolve_component, at
fortran/resolve.cc:14726
Product: gcc
Version: 13.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: gs...@t-online.de
Target Milestone: ---
Started with r9 between 20180819 and 20180826 :
$ cat z1.f90
program p
type t
class(u), allocatable :: a b
end type
end
$ cat z2.f90
module m
type t
class(u), allocatable :: a b
end type
end
$ gfortran-9-20180819 -c z1.f90
z1.f90:3:30:
3 | class(u), allocatable :: a b
| 1
Error: Derived type at (1) has not been previously defined and so cannot appear
in a derived type definition
$ gfortran-13-20220911 -c z1.f90
z1.f90:3:33:
3 | class(u), allocatable :: a b
| 1
Error: Syntax error in data declaration at (1)
z1.f90:1:9:
1 | program p
| 1
Error: Argument 'src' of '_copy' with PASS(src) at (1) must be of the derived
type '__class_p_U_a'
f951: internal compiler error: Segmentation fault
0xf386bf crash_signal
../../gcc/toplev.cc:314
0x8781c2 resolve_component
../../gcc/fortran/resolve.cc:14726
0x878ca2 resolve_fl_derived0
../../gcc/fortran/resolve.cc:15075
0x878fed resolve_fl_derived
../../gcc/fortran/resolve.cc:15207
0x872a67 resolve_symbol
../../gcc/fortran/resolve.cc:15584
0x891d72 do_traverse_symtree
../../gcc/fortran/symbol.cc:4174
0x876034 resolve_types
../../gcc/fortran/resolve.cc:17534
0x8714ac gfc_resolve(gfc_namespace*)
../../gcc/fortran/resolve.cc:17649
0x8592a4 resolve_all_program_units
../../gcc/fortran/parse.cc:6606
0x8592a4 gfc_parse_file()
../../gcc/fortran/parse.cc:6862
0x8a7c6f gfc_be_parse_file
../../gcc/fortran/f95-lang.cc:229
