[Bug fortran/106946] New: [10/11/12/13 Regression] ICE in resolve_component, at fortran/resolve.cc:14726

[gscfq@t-online.de]

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: gscfq@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