10SN/A! { dg-do compile }
212451Sserb! { dg-options "-std=f2003" }
30SN/A!
40SN/A! PR fortran/47550
50SN/A! Follow up to: PR fortran/47507
60SN/A!
72362SN/A! PURE procedures: Allow arguments w/o INTENT if they are VALUE
80SN/A!
92362SN/A
100SN/Apure function f(x) ! { dg-error "Fortran 2008: Argument 'x' of pure function" }
110SN/A  real, VALUE :: x
120SN/A  real :: f
130SN/A  f = sin(x)
140SN/Aend function f
150SN/A
160SN/Apure subroutine sub(x) ! { dg-error "Fortran 2008: Argument 'x' of pure subroutine" }
170SN/A  real, VALUE :: x
180SN/Aend subroutine sub
190SN/A