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