https://gcc.gnu.org/bugzilla/show_bug.cgi?id=99368
Bug ID: 99368
Summary: ICE in build_function_decl, at
fortran/trans-decl.c:2381
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: ---
This issue depends on alphabetical order of involved names,
that is, case z1 gives an ICE ("x"<"y"), z2 gives an error.
Special case: same name. Affects versions down to at least r5.
$ diff z1.f90 z2.f90
6c6
< namelist /x/ y
---
> namelist /z/ y
$ cat z1.f90
program p
type y
end type
contains
subroutine s
namelist /x/ y
character(3) y
end
end
$ cat z2.f90
program p
type y
end type
contains
subroutine s
namelist /z/ y
character(3) y
end
end
$ gfortran-11-20210228 -c z2.f90
z2.f90:6:17:
6 | namelist /z/ y
| 1
Error: PROCEDURE attribute conflicts with NAMELIST attribute in 'y' at (1)
$ gfortran-11-20210228 -c z1.f90
z1.f90:2:9:
2 | type y
| 1
internal compiler error: in build_function_decl, at fortran/trans-decl.c:2381
0x752129 build_function_decl
../../gcc/fortran/trans-decl.c:2378
0x759a6c gfc_get_symbol_decl(gfc_symbol*)
../../gcc/fortran/trans-decl.c:1756
0x75c9a5 generate_namelist_decl
../../gcc/fortran/trans-decl.c:5241
0x75ce8e generate_local_nml_decl
../../gcc/fortran/trans-decl.c:6147
0x71af42 do_traverse_symtree
../../gcc/fortran/symbol.c:4170
0x75d011 generate_local_vars
../../gcc/fortran/trans-decl.c:6157
0x75d011 gfc_generate_function_code(gfc_namespace*)
../../gcc/fortran/trans-decl.c:6815
0x75cfe4 gfc_generate_contained_functions
../../gcc/fortran/trans-decl.c:5874
0x75cfe4 gfc_generate_function_code(gfc_namespace*)
../../gcc/fortran/trans-decl.c:6812
0x6e3a46 translate_all_program_units
../../gcc/fortran/parse.c:6351
0x6e3a46 gfc_parse_file()
../../gcc/fortran/parse.c:6620
0x72fd7f gfc_be_parse_file
../../gcc/fortran/f95-lang.c:212
