gcc/testsuite/gfortran.dg/pure_formal_proc_1.f90

   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
  16 end subroutine s_one