pure_formal_proc_1.f90   [plain text]

! { dg-do compile }
! Test fix for PR30034 in which the legal, pure procedure formal
! argument was rejected as an error.
!
! Contgributed by Troban Trumsko <trumsko@yahoo.com>
!
 pure subroutine s_one ( anum, afun )
    integer, intent(in) :: anum
    interface
      pure function afun (k) result (l)
        implicit none
        integer, intent(in) :: k
        integer :: l
      end function afun
    end interface
end subroutine s_one