summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/pure_formal_1.f90
blob: 4e62cf9dee67cad79e9cd657a982d7ece7425108 (plain)
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