https://gcc.gnu.org/bugzilla/show_bug.cgi?id=107380
Bug ID: 107380
Summary: ICE in coarray_check, at fortran/check.cc:694
Product: gcc
Version: 13.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: [email protected]
Target Milestone: ---
Affects versions down to at least r5 :
$ cat z1.f90
program p
class(*), allocatable :: x
codimension :: x[:]
allocate (real :: x[*])
print *, image_index(x, [1])
end
$ cat z2.f90
program p
class(*), allocatable :: x[:]
allocate (real :: x[*])
print *, image_index(x, [1])
end
$ gfortran-13-20221023 -c z2.f90 -fcoarray=lib
$
$ gfortran-13-20221023 -c z1.f90 -fcoarray=lib
z1.f90:4:24:
4 | allocate (real :: x[*])
| 1
Error: Unexpected coarray designator at (1)
f951: internal compiler error: Segmentation fault
0xf43b3f crash_signal
../../gcc/toplev.cc:314
0x7ca22f coarray_check
../../gcc/fortran/check.cc:694
0x7d2482 gfc_check_image_index(gfc_expr*, gfc_expr*)
../../gcc/fortran/check.cc:5943
0x811b09 do_check
../../gcc/fortran/intrinsic.cc:4792
0x811b09 check_specific
../../gcc/fortran/intrinsic.cc:4805
0x819b94 gfc_intrinsic_func_interface(gfc_expr*, int)
../../gcc/fortran/intrinsic.cc:5042
0x870468 resolve_unknown_f
../../gcc/fortran/resolve.cc:2990
0x870468 resolve_function
../../gcc/fortran/resolve.cc:3347
0x870468 gfc_resolve_expr(gfc_expr*)
../../gcc/fortran/resolve.cc:7194
0x8766cc gfc_resolve_expr(gfc_expr*)
../../gcc/fortran/resolve.cc:7161
0x8766cc gfc_resolve_code(gfc_code*, gfc_namespace*)
../../gcc/fortran/resolve.cc:11980
0x8751ff gfc_resolve_blocks(gfc_code*, gfc_namespace*)
../../gcc/fortran/resolve.cc:10978
0x875558 gfc_resolve_code(gfc_code*, gfc_namespace*)
../../gcc/fortran/resolve.cc:11970
0x878307 resolve_codes
../../gcc/fortran/resolve.cc:17624
0x8783ce gfc_resolve(gfc_namespace*)
../../gcc/fortran/resolve.cc:17659
0x860194 resolve_all_program_units
../../gcc/fortran/parse.cc:6631
0x860194 gfc_parse_file()
../../gcc/fortran/parse.cc:6887
0x8aec0f gfc_be_parse_file
../../gcc/fortran/f95-lang.cc:229
