https://gcc.gnu.org/bugzilla/show_bug.cgi?id=95708
Bug ID: 95708
Summary: [9/10/11 Regression] ICE in resolve_fl_procedure, at
fortran/resolve.c:13002
Product: gcc
Version: 11.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: gs...@t-online.de
Target Milestone: ---
Special case "team_number" gives an ICE down to r8, r7 rejects it :
$ cat z0.f90
program p
procedure(num_images) :: g
end
$ cat z1.f90
program p
procedure(team_number) :: g
end
$ gfortran-11-20200614 -c z0.f90
z0.f90:2:29:
2 | procedure(num_images) :: g
| 1
Error: Intrinsic procedure 'num_images' not allowed in PROCEDURE statement at
(1)
$ gfortran-11-20200614 -c z1.f90
f951: internal compiler error: Segmentation fault
0xbcdd2f crash_signal
../../gcc/toplev.c:328
0x6cf9fb resolve_fl_procedure
../../gcc/fortran/resolve.c:13002
0x6cf9fb resolve_symbol
../../gcc/fortran/resolve.c:15855
0x6cfeca resolve_procedure_interface
../../gcc/fortran/resolve.c:210
0x6cd526 resolve_symbol
../../gcc/fortran/resolve.c:15235
0x6eb7d2 do_traverse_symtree
../../gcc/fortran/symbol.c:4162
0x6d0a84 resolve_types
../../gcc/fortran/resolve.c:17175
0x6cc19c gfc_resolve(gfc_namespace*)
../../gcc/fortran/resolve.c:17290
0x6b42ec resolve_all_program_units
../../gcc/fortran/parse.c:6245
0x6b42ec gfc_parse_file()
../../gcc/fortran/parse.c:6492
0x70036f gfc_be_parse_file
../../gcc/fortran/f95-lang.c:212
