[Bug fortran/56496] [OOP] [F08] ICE with TYPE(*) coarray and SELECT TYPE

[gscfq@t-online.de]

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

--- Comment #4 from G. Steinmetz <gscfq@t-online.de> ---

Slightly modified :


$ cat z1.f90
program p
   class(*), allocatable :: a[:]
   allocate (integer :: a[*])
   select type (a)
   type is (integer)
      a = a(1)
   end select
end


$ gfortran-9-20181104 -c z1.f90 -fcoarray=single
z1.f90:6:0:

    6 |       a = a(1)
      |
internal compiler error: in gfc_walk_array_ref, at fortran/trans-array.c:10574
0x6ce074 gfc_walk_array_ref(gfc_ss*, gfc_expr*, gfc_ref*)
        ../../gcc/fortran/trans-array.c:10574
0x6ce920 gfc_walk_expr(gfc_expr*)
        ../../gcc/fortran/trans-array.c:10886
0x6fc5f7 gfc_trans_assignment_1
        ../../gcc/fortran/trans-expr.c:10185
0x6bf54f trans_code
        ../../gcc/fortran/trans.c:1822
0x72d10f gfc_trans_block_construct(gfc_code*)
        ../../gcc/fortran/trans-stmt.c:2066
0x6bf6f7 trans_code
        ../../gcc/fortran/trans.c:1918
0x72e269 gfc_trans_select_type_cases
        ../../gcc/fortran/trans-stmt.c:2674
0x72e269 gfc_trans_select_type(gfc_code*)
        ../../gcc/fortran/trans-stmt.c:3383
0x6bf787 trans_code
        ../../gcc/fortran/trans.c:1938
0x72d10f gfc_trans_block_construct(gfc_code*)
        ../../gcc/fortran/trans-stmt.c:2066
0x6bf6f7 trans_code
        ../../gcc/fortran/trans.c:1918
0x6e6e14 gfc_generate_function_code(gfc_namespace*)
        ../../gcc/fortran/trans-decl.c:6509
0x6740a6 translate_all_program_units
        ../../gcc/fortran/parse.c:6125
0x6740a6 gfc_parse_file()
        ../../gcc/fortran/parse.c:6328
0x6bc03f gfc_be_parse_file
        ../../gcc/fortran/f95-lang.c:204