gcc/testsuite/gfortran.dg/pure_formal_1.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR fortran/47507
   4 !
   5 ! PURE procedures: Allow arguments w/o INTENT if they are VALUE
   6 !
   7
   8 pure function f(x)
   9   real, VALUE :: x
  10   real :: f
  11   f = sin(x)
  12 end function f
  13
  14 pure subroutine sub(x)
  15   real, VALUE :: x
  16 end subroutine sub