https://gcc.gnu.org/bugzilla/show_bug.cgi?id=64980
--- Comment #2 from janus at gcc dot gnu.org ---
Slightly further reduced:
implicit none
type :: muli_trapezium_t
integer::dim=0
end type
type, extends (muli_trapezium_t) :: muli_trapezium_node_class_t
end type
class(muli_trapezium_node_class_t), pointer :: node
print *,get_d_value_array(node) ! ICE
contains
function get_d_value_array (this) result (subarray)
class(muli_trapezium_t), intent(in) :: this
real, dimension(this%dim) :: subarray
end function
end
