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