[Bug fortran/61819] [4.9/4.10 Regression] ICE in gfc_conv_descriptor_data_get

[talebi.hossein at gmail dot com]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=61819

--- Comment #18 from Hossein Talebi <talebi.hossein at gmail dot com> ---
I am now trying this bug and the Bug 68415 with the new GCC from trunc and it
is fine. Nevertheless, this other code does not compile.  
(gcc version 6.0.0 20151129 (experimental))



Module part_base2_class

    implicit none

    type :: ty_moc1
        integer l
    end type ty_moc1
    integer,parameter ::  MAX_NUM_ELEMENT_TYPE=32

    type :: ty_element_index2

        class(ty_moc1),allocatable :: element
        class(ty_moc1),allocatable :: element_th(:)

    endtype ty_element_index2

    type :: ty_part_base2
        type(ty_element_index2)::element_index(MAX_NUM_ELEMENT_TYPE) 
    end type ty_part_base2

    class(ty_part_base2),allocatable ::  part_tmp_obj

End Module part_base2_class