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