3 ! PR 59450: [OOP] ICE for type-bound-procedure expression in module procedure interface
5 ! Contributed by <bugs@miller-mohr.de>
13 procedure
, nopass
:: get_num
18 pure
integer function get_num()
21 function get_array( this
) result(array
)
22 class(base_class
), intent(in
) :: this
23 integer, dimension( this
%get_num() ) :: array
28 ! { dg-final { cleanup-modules "classes" } }