3 ! Contributed by Gerhard Steinmetz <gscfq@t-online.de>
9 procedure
, private
:: g
12 function g(x
, y
) result(z
)
13 class(t
), intent(in
) :: x
14 real, intent(in
) :: y(:, :)
25 class(t
), allocatable
:: u(:)
32 if (any (int(f (x
, y
)) .ne
. [1,2,3,4,5])) stop 1
35 function f(x
, y
) result(z
)
40 z
= x
%u(1)%h(y
) ! Used to segfault here