| ! { 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 | |
| ! { dg-final { cleanup-modules "array" } } |