[Bug fortran/108454] New: ICE in gfc_trans_common, at fortran/trans-common.cc:1385

[gscfq--- via Gcc-bugs]

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

            Bug ID: 108454
           Summary: ICE in gfc_trans_common, at
                    fortran/trans-common.cc:1385
           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: ---

Affects versions down to at least r5 :


$ cat z1.f90
module m
   type t
   end type
contains
   subroutine s
      common t
   end
end


$ cat z3.f90
module m
   type t
   end type
contains
   subroutine s
      type(t) :: x
      common t
   end
end


$ cat z4.f90
module m
   type t
   end type
contains
   subroutine s(x)
      class(t) :: x
      common t
   end
end


$ gfortran-13-20230115 -c z1.f90
z1.f90:8:3:

    8 | end
      |   1
internal compiler error: Segmentation fault
0xda7faf crash_signal
        ../../gcc/toplev.cc:314
0x897730 gfc_trans_common(gfc_namespace*)
        ../../gcc/fortran/trans-common.cc:1385
0x8a7229 gfc_generate_function_code(gfc_namespace*)
        ../../gcc/fortran/trans-decl.cc:7523
0x87e7d9 gfc_generate_module_code(gfc_namespace*)
        ../../gcc/fortran/trans.cc:2370
0x82926f translate_all_program_units
        ../../gcc/fortran/parse.cc:6708
0x82926f gfc_parse_file()
        ../../gcc/fortran/parse.cc:7027
0x876eff gfc_be_parse_file
        ../../gcc/fortran/f95-lang.cc:229