1! { dg-do compile } 2! Test fix for PR30034 in which the legal, pure procedure formal 3! argument was rejected as an error. 4! 5! Contgributed by Troban Trumsko <trumsko@yahoo.com> 6! 7 pure subroutine s_one ( anum, afun ) 8 integer, intent(in) :: anum 9 interface 10 pure function afun (k) result (l) 11 implicit none 12 integer, intent(in) :: k 13 integer :: l 14 end function afun 15 end interface 16end subroutine s_one 17