summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/pure_formal_proc_1.f90
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