3 ! PR 44962: [OOP] ICE with specification expression SIZE(<CLASS>)
5 ! Contributed by Satish.BD <bdsatish@gmail.com>
11 real, dimension(10) :: coeff
13 procedure :: get_coeff
18 function get_coeff(self) result(coeff)
19 class(t_array), intent(in) :: self
20 real, dimension(size(self%coeff)) :: coeff !! The SIZE here carashes !!
21 end function get_coeff