[Bug fortran/103285] New: ICE in output_constructor_regular_field, at varasm.c:5514

["gscfq@t-online.de" <gcc-bugzilla@gcc.gnu.org>]

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

            Bug ID: 103285
           Summary: ICE in output_constructor_regular_field, at
                    varasm.c:5514
           Product: gcc
           Version: 12.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: gscfq@t-online.de
  Target Milestone: ---

Affects versions down to r6, with option -fdec :
(null() not allowed there)


$ cat z1.f90
program p
   structure /s/
      character*4 c /'abc'/
      integer d(2) /2*null()/
      integer e /3/
   end structure
   record /s/ r
   if ( r.c /= 'abc' ) stop
end


$ gfortran-12-20211114 -c z1.f90 -fdec
z1.f90:9:3:

    9 | end
      |   ^
internal compiler error: in output_constructor_regular_field, at varasm.c:5514
0x1014454 output_constructor_regular_field
        ../../gcc/varasm.c:5514
0x1014454 output_constructor
        ../../gcc/varasm.c:5826
0x101479f output_constant
        ../../gcc/varasm.c:5172
0x101479f assemble_variable_contents
        ../../gcc/varasm.c:2235
0x101c57d assemble_variable(tree_node*, int, int, int)
        ../../gcc/varasm.c:2414
0x101e87a varpool_node::assemble_decl()
        ../../gcc/varpool.c:595
0x95b61f output_in_order
        ../../gcc/cgraphunit.c:2135
0x95b61f symbol_table::compile()
        ../../gcc/cgraphunit.c:2353
0x95df3f symbol_table::compile()
        ../../gcc/cgraphunit.c:2540
0x95df3f symbol_table::finalize_compilation_unit()
        ../../gcc/cgraphunit.c:2537