https://gcc.gnu.org/bugzilla/show_bug.cgi?id=107899
Bug ID: 107899
Summary: ICE in resolve_deallocate_expr, at
fortran/resolve.cc:7576
Product: gcc
Version: 13.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: gs...@t-online.de
Target Milestone: ---
Affects versions down to at least r5 :
(target instead of allocatable)
$ cat z1.f90
program p
type t
end type
class(t), target :: x[:]
if (allocated(x)) deallocate (x)
end
$ cat z2.f90
program p
type t
end type
class(t), target :: x[:]
deallocate(x)
end
$ gfortran-13-20221127 -c z1.f90 -fcoarray=lib
z1.f90:4:27:
4 | class(t), target :: x[:]
| 1
Error: Coarray variable 'x' at (1) shall not have codimensions with deferred
shape
z1.f90:5:17:
5 | if (allocated(x)) deallocate (x)
| 1
Error: 'array' argument of 'allocated' intrinsic at (1) must be ALLOCATABLE
f951: internal compiler error: Segmentation fault
0xf36d0f crash_signal
../../gcc/toplev.cc:314
0x87a956 resolve_deallocate_expr
../../gcc/fortran/resolve.cc:7576
0x87a956 resolve_allocate_deallocate
../../gcc/fortran/resolve.cc:8461
0x87cfac gfc_resolve_code(gfc_code*, gfc_namespace*)
../../gcc/fortran/resolve.cc:12291
0x87b2ff gfc_resolve_blocks(gfc_code*, gfc_namespace*)
../../gcc/fortran/resolve.cc:10979
0x87b658 gfc_resolve_code(gfc_code*, gfc_namespace*)
../../gcc/fortran/resolve.cc:11971
0x87e407 resolve_codes
../../gcc/fortran/resolve.cc:17628
0x87e4ce gfc_resolve(gfc_namespace*)
../../gcc/fortran/resolve.cc:17663
0x866294 resolve_all_program_units
../../gcc/fortran/parse.cc:6631
0x866294 gfc_parse_file()
../../gcc/fortran/parse.cc:6887
0x8b4d3f gfc_be_parse_file
../../gcc/fortran/f95-lang.cc:229
