1! { dg-do compile } 2! 3! PR 44962: [OOP] ICE with specification expression SIZE(<CLASS>) 4! 5! Contributed by Satish.BD <bdsatish@gmail.com> 6 7 8module array 9 10type :: t_array 11 real, dimension(10) :: coeff 12contains 13 procedure :: get_coeff 14end type t_array 15 16contains 17 18function get_coeff(self) result(coeff) 19 class(t_array), intent(in) :: self 20 real, dimension(size(self%coeff)) :: coeff !! The SIZE here carashes !! 21end function get_coeff 22 23end module array 24