https://gcc.gnu.org/bugzilla/show_bug.cgi?id=102458
Bug ID: 102458
Summary: ICE tree check: expected array_type, have pointer_type
in gfc_conv_array_initializer, at
fortran/trans-array.c:6136
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 at least r5 :
$ cat z1.f90
subroutine s
integer :: a(command_argument_count()) = 1
print *, a
end
$ gfortran-12-20210919 -c z1.f90
z1.f90:1:12:
1 | subroutine s
| 1
internal compiler error: tree check: expected array_type, have pointer_type in
gfc_conv_array_initializer, at fortran/trans-array.c:6136
0x6938d8 tree_check_failed(tree_node const*, char const*, int, char const*,
...)
../../gcc/tree.c:8689
0x7de241 tree_check(tree_node*, char const*, int, char const*, tree_code)
../../gcc/tree.h:3427
0x7de241 gfc_conv_array_initializer(tree_node*, gfc_expr*)
../../gcc/fortran/trans-array.c:6133
0x81f1b0 gfc_conv_initializer(gfc_expr*, gfc_typespec*, tree_node*, bool, bool,
bool)
../../gcc/fortran/trans-expr.c:8014
0x7ff6ca gfc_get_symbol_decl(gfc_symbol*)
../../gcc/fortran/trans-decl.c:1940
0x80324f generate_local_decl
../../gcc/fortran/trans-decl.c:5989
0x7b3592 do_traverse_symtree
../../gcc/fortran/symbol.c:4170
0x80479c generate_local_vars
../../gcc/fortran/trans-decl.c:6195
0x80479c gfc_generate_function_code(gfc_namespace*)
../../gcc/fortran/trans-decl.c:6854
0x77be66 translate_all_program_units
../../gcc/fortran/parse.c:6572
0x77be66 gfc_parse_file()
../../gcc/fortran/parse.c:6841
0x7c90df gfc_be_parse_file
../../gcc/fortran/f95-lang.c:216
