! { dg-do compile }
!
! PR 44962: [OOP] ICE with specification expression SIZE(<CLASS>)
!
! Contributed by Satish.BD <bdsatish@gmail.com>


module array

type :: t_array
  real, dimension(10) :: coeff
contains
  procedure :: get_coeff
end type t_array

contains

function get_coeff(self) result(coeff)
  class(t_array), intent(in) :: self
  real, dimension(size(self%coeff)) :: coeff !! The SIZE here carashes !!
end function get_coeff

end module array


type :: t2
  real, dimension(iabs(-3)+2) :: com
end type

real, dimension(irand()+2) :: r2   ! { dg-error "must have constant shape" }

end

! { dg-final { cleanup-modules "array" } }