pure_formal_proc_1.f90

来自「用于进行gcc测试」· F90 代码 · 共 17 行

! { dg-do compile }
! Test fix for PR30034 in which the legal, pure procedure formal
! argument was rejected as an error.
!
! Contgributed by Troban Trumsko <[e-mail]>
!
 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