2 ! Test fix for PR30034 in which the legal, pure procedure formal
3 ! argument was rejected as an error.
5 ! Contgributed by Troban Trumsko <trumsko@yahoo.com>
7 pure
subroutine s_one ( anum
, afun
)
8 integer, intent(in
) :: anum
10 pure
function afun (k
) result (l
)
12 integer, intent(in
) :: k