https://gcc.gnu.org/bugzilla/show_bug.cgi?id=88376
Bug ID: 88376
Summary: ICE in is_illegal_recursion, at fortran/resolve.c:1689
Product: gcc
Version: 9.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: gs...@t-online.de
Target Milestone: ---
With invalid code down to gfortran-6 :
$ cat z1.f90
module m
integer :: n
contains
subroutine s
character(n(3)) :: c
end
end
$ gfortran-5 -c z1.f90
z1.f90:5:16:
character(n(3)) :: c
1
Error: 'n' at (1) is not a function
$ gfortran-9-20181202 -c z1.f90
f951: internal compiler error: in is_illegal_recursion, at
fortran/resolve.c:1689
0x67f5e9 is_illegal_recursion
../../gcc/fortran/resolve.c:1689
0x690e3e resolve_function
../../gcc/fortran/resolve.c:3296
0x68dcad gfc_resolve_expr(gfc_expr*)
../../gcc/fortran/resolve.c:6832
0x62140f gfc_reduce_init_expr(gfc_expr*)
../../gcc/fortran/expr.c:2953
0x60771d gfc_match_char_spec(gfc_typespec*)
../../gcc/fortran/decl.c:3288
0x60ddc7 gfc_match_decl_type_spec(gfc_typespec*, int)
../../gcc/fortran/decl.c:3931
0x60eeec gfc_match_data_decl()
../../gcc/fortran/decl.c:5853
0x66f6e3 match_word
../../gcc/fortran/parse.c:65
0x66f6e3 decode_statement
../../gcc/fortran/parse.c:376
0x67118a next_free
../../gcc/fortran/parse.c:1235
0x67118a next_statement
../../gcc/fortran/parse.c:1467
0x6734f4 parse_spec
../../gcc/fortran/parse.c:3675
0x67526c parse_progunit
../../gcc/fortran/parse.c:5674
0x675651 parse_contained
../../gcc/fortran/parse.c:5575
0x676415 parse_module
../../gcc/fortran/parse.c:5947
0x676747 gfc_parse_file()
../../gcc/fortran/parse.c:6250
0x6bf5ff gfc_be_parse_file
../../gcc/fortran/f95-lang.c:204
