gcc/testsuite/gfortran.dg/pr64980.f03

   1 ! { dg-do compile }
   2
   3   implicit none
   4
   5   type :: muli_trapezium_t
   6      integer::dim=0
   7   end type
   8
   9   type, extends (muli_trapezium_t) :: muli_trapezium_node_class_t
  10   end type
  11
  12   class(muli_trapezium_node_class_t), pointer :: node
  13   print *,get_d_value_array(node)
  14
  15 contains
  16
  17   function get_d_value_array (this) result (subarray)
  18     class(muli_trapezium_t), intent(in) :: this
  19     real, dimension(this%dim) :: subarray
  20   end function
  21
  22 end