https://gcc.gnu.org/bugzilla/show_bug.cgi?id=93364
Bug ID: 93364
Summary: [9/10 Regression] ICE in gfc_set_array_spec, at
fortran/array.c:879
Product: gcc
Version: 10.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: gs...@t-online.de
Target Milestone: ---
Follow-up of pr92897, the other way around.
Was also changed between 20190922 and 20190929 :
$ cat z1.f90
type(t) function f()
codimension :: t[1,2,1,2,1,2,1,*]
dimension :: t(1,2,1,2,1,2,1,2)
end
$ gfortran-10-20190922 -c z1.f90 -fcoarray=single
z1.f90:1:7:
1 | type(t) function f()
| 1
Error: Derived type 't' at (1) has not been declared
z1.f90:1:18:
1 | type(t) function f()
| 1
Error: The derived type 'f' at (1) is of type 't', which has not been defined
$ gfortran-10-20200119 -c z1.f90 -fcoarray=single
f951: internal compiler error: in gfc_set_array_spec, at fortran/array.c:879
0x617e8d gfc_set_array_spec(gfc_symbol*, gfc_array_spec*, locus*)
../../gcc/fortran/array.c:879
0x630d6b attr_decl1
../../gcc/fortran/decl.c:8554
0x630d6b attr_decl
../../gcc/fortran/decl.c:8606
0x69ae71 match_word
../../gcc/fortran/parse.c:65
0x69eeea decode_statement
../../gcc/fortran/parse.c:470
0x69fc3a next_free
../../gcc/fortran/parse.c:1279
0x69fc3a next_statement
../../gcc/fortran/parse.c:1511
0x6a136d parse_spec
../../gcc/fortran/parse.c:3938
0x6a405c parse_progunit
../../gcc/fortran/parse.c:5848
0x6a5a81 gfc_parse_file()
../../gcc/fortran/parse.c:6402
0x6f044f gfc_be_parse_file
../../gcc/fortran/f95-lang.c:210
