[Bug fortran/104573] New: ICE in resolve_structure_cons, at fortran/resolve.cc:1299

[gscfq--- via Gcc-bugs]

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

            Bug ID: 104573
           Summary: ICE in resolve_structure_cons, at
                    fortran/resolve.cc:1299
           Product: gcc
           Version: 12.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: gs...@t-online.de
  Target Milestone: ---

Affects versions down to at least r5 :
(gcc configured with --enable-checking=yes)


$ cat z1.f90
program p
   type t
   end type
   type(*), parameter :: x = t()
   print *, x
end


$ cat z2.f90
program p
   type t
      integer :: n
   end type
   type(*), parameter :: x = t(1)
   print *, x
end


$ gfortran-12-20220213 -c z1.f90
z1.f90:4:26:

    4 |    type(*), parameter :: x = t()
      |                          1
Error: Assumed type of variable x at (1) is only permitted for dummy variables
z1.f90:4:28:

    4 |    type(*), parameter :: x = t()
      |                            1
Error: Cannot convert TYPE(t) to TYPE(*) at (1)
f951: internal compiler error: Segmentation fault
0xe7073f crash_signal
        ../../gcc/toplev.cc:322
0x7b30e4 resolve_structure_cons
        ../../gcc/fortran/resolve.cc:1299
0x7a0c91 gfc_resolve_expr(gfc_expr*)
        ../../gcc/fortran/resolve.cc:7228
0x7a9324 gfc_resolve_expr(gfc_expr*)
        ../../gcc/fortran/resolve.cc:7136
0x7a9324 gfc_resolve_code(gfc_code*, gfc_namespace*)
        ../../gcc/fortran/resolve.cc:11927
0x7a7cdf gfc_resolve_blocks(gfc_code*, gfc_namespace*)
        ../../gcc/fortran/resolve.cc:10943
0x7a8038 gfc_resolve_code(gfc_code*, gfc_namespace*)
        ../../gcc/fortran/resolve.cc:11917
0x7aa977 resolve_codes
        ../../gcc/fortran/resolve.cc:17536
0x7aaa3e gfc_resolve(gfc_namespace*)
        ../../gcc/fortran/resolve.cc:17571
0x792d64 resolve_all_program_units
        ../../gcc/fortran/parse.cc:6586
0x792d64 gfc_parse_file()
        ../../gcc/fortran/parse.cc:6842
0x7e102f gfc_be_parse_file
        ../../gcc/fortran/f95-lang.cc:216