gcc/testsuite/gfortran.dg/pure_formal_1.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

! { dg-do compile }
!
! PR fortran/47507
!
! PURE procedures: Allow arguments w/o INTENT if they are VALUE
!

pure function f(x)
  real, VALUE :: x
  real :: f
  f = sin(x)
end function f

pure subroutine sub(x)
  real, VALUE :: x
end subroutine sub