3 ! PR 59547: [OOP] Problem with using tbp specification function in multiple class procedures
5 ! Contributed by <bugs@miller-mohr.de>
13 procedure
, nopass
:: get_num
14 procedure
:: get_array
, get_array2
19 pure
integer function get_num()
23 function get_array( this
) result(array
)
24 class(base_class
), intent(in
) :: this
25 integer, dimension( this
%get_num() ) :: array
28 function get_array2( this
) result(array
)
29 class(base_class
), intent(in
) :: this
30 integer, dimension( this
%get_num(), this
%get_num() ) :: array