! { dg-do compile }

  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)

contains

  function get_d_value_array (this) result (subarray)
    class(muli_trapezium_t), intent(in) :: this
    real, dimension(this%dim) :: subarray
  end function

end