[Bug fortran/104569] New: ICE in generate_coarray_sym_init, at fortran/trans-decl.cc:5537

[gscfq--- via Gcc-bugs]

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

            Bug ID: 104569
           Summary: ICE in generate_coarray_sym_init, at
                    fortran/trans-decl.cc:5537
           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 r7 :


$ cat z1.f90
program p
   character :: x(2)[*]
   call s
contains
   subroutine s
      associate (y => x)
         y = 'a'
      end associate
   end
end


$ cat z2.f90
program p
   character(3) :: x(2)[*]
   call s
contains
   subroutine s
      associate (y => x)
         y = 'abc'
      end associate
   end
end


$ cat z3.f90
program p
   character :: x(2)[*]
   associate (y => x)
      y = 'a'
   end associate
end


$ gfortran-12-20220213 -c z1.f90 -fcoarray=single
$
$ gfortran-12-20220213 -c z1.f90 -fcoarray=lib
z1.f90:6:24:

    6 |       associate (y => x)
      |                        1
internal compiler error: in generate_coarray_sym_init, at
fortran/trans-decl.cc:5537
0x7c2f32 generate_coarray_sym_init
        ../../gcc/fortran/trans-decl.cc:5537
0x78b442 do_traverse_symtree
        ../../gcc/fortran/symbol.cc:4174
0x7c2185 generate_coarray_init
        ../../gcc/fortran/trans-decl.cc:5685
0x7c7210 gfc_process_block_locals(gfc_namespace*)
        ../../gcc/fortran/trans-decl.cc:7943
0x8236b9 gfc_trans_block_construct(gfc_code*)
        ../../gcc/fortran/trans-stmt.cc:2296
0x7a76e7 trans_code
        ../../gcc/fortran/trans.cc:2012
0x7d093e gfc_generate_function_code(gfc_namespace*)
        ../../gcc/fortran/trans-decl.cc:7654
0x7d076c gfc_generate_contained_functions
        ../../gcc/fortran/trans-decl.cc:5777
0x7d076c gfc_generate_function_code(gfc_namespace*)
        ../../gcc/fortran/trans-decl.cc:7586
0x75367e translate_all_program_units
        ../../gcc/fortran/parse.cc:6651
0x75367e gfc_parse_file()
        ../../gcc/fortran/parse.cc:6938
0x7a066f gfc_be_parse_file
        ../../gcc/fortran/f95-lang.cc:216