https://gcc.gnu.org/bugzilla/show_bug.cgi?id=80774
Bug ID: 80774
Summary: ICE in gfc_conv_descriptor_data_get, at
fortran/trans-array.c
Product: gcc
Version: 8.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: zeccav at gmail dot com
Target Milestone: ---
! gfortran 8.0.0 trunk 247930 ICE in gfc_conv_descriptor_data_get, at
fortran/trans-array.c
! must be compiled with option -fcoarray=single
! test case taken from testsuite
program coarray_alloc_comp_3
type dt
integer, allocatable :: i
end type dt
type linktype
type(dt), allocatable :: link
end type linktype
type(linktype) :: obj[*]
allocate(obj%link)
deallocate(obj%link)
end program
!/home/vitti/f95/gfbug.f:18:0:
!
! deallocate(obj%link)
!
!internal compiler error: in gfc_conv_descriptor_data_get, at
fortran/trans-array.c:144
!0x9b015f gfc_conv_descriptor_data_get(tree_node*)
! ../../gcc/fortran/trans-array.c:144
!0x99c7a8 gfc_deallocate_with_status(tree_node*, tree_node*, tree_node*,
tree_node*, tree_node*, bool, gfc_expr*, int, tree_node*, tree_node*)
! ../../gcc/fortran/trans.c:1331
!0x9eb7ca structure_alloc_comps
! ../../gcc/fortran/trans-array.c:8310
!0x9f1619 gfc_deallocate_alloc_comp(gfc_symbol*, tree_node*, int, int)
! ../../gcc/fortran/trans-array.c:8766
!0x99fa19 gfc_deallocate_scalar_with_status(tree_node*, tree_node*, tree_node*,
bool, gfc_expr*, gfc_typespec, bool)
! ../../gcc/fortran/trans.c:1550
!0xc31de1 gfc_trans_deallocate(gfc_code*)
! ../../gcc/fortran/trans-stmt.c:6646
!0x9971cf trans_code
! ../../gcc/fortran/trans.c:1973
!0x997b9f gfc_trans_code(gfc_code*)
! ../../gcc/fortran/trans.c:2128
!0xa46e58 gfc_generate_function_code(gfc_namespace*)
! ../../gcc/fortran/trans-decl.c:6342
!0x997c10 gfc_generate_code(gfc_namespace*)
! ../../gcc/fortran/trans.c:2145
!0x8141dd translate_all_program_units
! ../../gcc/fortran/parse.c:6074
!0x82a9f6 gfc_parse_file()
! ../../gcc/fortran/parse.c:6274
!0x96f9a9 gfc_be_parse_file
! ../../gcc/fortran/f95-lang.c:204
!Please submit a full bug report,
!with preprocessed source if appropriate.
!Please include the complete backtrace with any bug report.
!See <https://gcc.gnu.org/bugs/> for instructions.
