[Bug fortran/68155] ICE on initializing character array in type (len_lhs <> len_rhs)

[kargl at gcc dot gnu.org]

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

kargl at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |kargl at gcc dot gnu.org

--- Comment #8 from kargl at gcc dot gnu.org ---
The code in the original comment compiles and gives

 gfcx -o z a.f90 && ./z
 y


The code in comment #2 gives

 gfcx -o z a.f90 && ./z
 ab

The code without type gives in comment #6 gives

 gfcx -o z a.f90 && ./z
           2           3 b  c  
           2           3 ab ac 
           2           3 axbaxc
           2           3 axyaxy

when wrapped in TYPE, I get

 gfcx -o z a.f90 && ./z
a.f90:13:0:

 end

internal compiler error: in output_constructor_regular_field, at varasm.c:5125
0x6cd37a output_constructor_regular_field
        ../../gcc/gcc/varasm.c:5125
0x6cd37a output_constructor
        ../../gcc/gcc/varasm.c:5433
0xfd4190 output_constant
        ../../gcc/gcc/varasm.c:4807
0xfd4190 output_constructor_regular_field
        ../../gcc/gcc/varasm.c:5163
0xfd4190 output_constructor
        ../../gcc/gcc/varasm.c:5433
0xfd56b1 output_constant
        ../../gcc/gcc/varasm.c:4807
0xfd56b1 assemble_variable_contents
        ../../gcc/gcc/varasm.c:2126
0xfdb41f assemble_variable(tree_node*, int, int, int)
        ../../gcc/gcc/varasm.c:2305
0xfdff99 varpool_node::assemble_decl()
        ../../gcc/gcc/varpool.c:590
0x934f1c output_in_order
        ../../gcc/gcc/cgraphunit.c:2385
0x934f1c symbol_table::compile()
        ../../gcc/gcc/cgraphunit.c:2623
0x937059 symbol_table::compile()
        ../../gcc/gcc/cgraphunit.c:2537
0x937059 symbol_table::finalize_compilation_unit()
        ../../gcc/gcc/cgraphunit.c:2717

So some of this PR is fixed.