[Bug fortran/80774] New: ICE in gfc_conv_descriptor_data_get, at fortran/trans-array.c

[zeccav at gmail dot com]

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.