[Bug fortran/102458] ICE tree check: expected array_type, have pointer_type in gfc_conv_array_initializer, at fortran/trans-array.c:6136

[gscfq--- via Gcc-bugs]

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

G. Steinmetz <gs...@t-online.de> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
           Keywords|                            |ice-on-invalid-code

--- Comment #1 from G. Steinmetz <gs...@t-online.de> ---

There are several variants :


$ cat z3.f90
subroutine s
   integer :: a(num_images()) = 1
   print *, a
end


$ cat z4.f90
subroutine s
   integer :: a(this_image()) = 1
   print *, a
end


$ cat z7.f90
subroutine s
   integer :: a(command_argument_count()) = 1
   a = 2
end


$ cat z8.f90
program p
   block
      integer :: a(command_argument_count()) = 1
      print *, a
   end block
end


$ cat za.f90
function f()
   integer :: a(command_argument_count()) = 0
   a = 1
end


$ cat zb.f90
program p
   block
      integer :: n(command_argument_count()) = 0
      n = 1
   end block
end


$ gfortran-12-20210919 -c zb.f90
zb.f90:3:44:

    3 |       integer :: n(command_argument_count()) = 0
      |                                            1
internal compiler error: in gfc_trans_auto_array_allocation, at
fortran/trans-array.c:6426
0x797a5b gfc_trans_auto_array_allocation(tree_node*, gfc_symbol*,
gfc_wrapped_block*)
        ../../gcc/fortran/trans-array.c:6426
0x7b1f17 gfc_trans_deferred_vars(gfc_symbol*, gfc_wrapped_block*)
        ../../gcc/fortran/trans-decl.c:4921
0x8054e1 gfc_trans_block_construct(gfc_code*)
        ../../gcc/fortran/trans-stmt.c:2311
0x78e4a7 trans_code
        ../../gcc/fortran/trans.c:2014
0x7b4c04 gfc_generate_function_code(gfc_namespace*)
        ../../gcc/fortran/trans-decl.c:6919
0x73af76 translate_all_program_units
        ../../gcc/fortran/parse.c:6572
0x73af76 gfc_parse_file()
        ../../gcc/fortran/parse.c:6841
0x78761f gfc_be_parse_file
        ../../gcc/fortran/f95-lang.c:216