blob: 4a55563c878e52238f85832ebad359de39a25eab (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
! { 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
|
