1! { dg-do compile } 2! { dg-options "-std=f95" } 3! Tests the standard check in the patch for PR29642, which requested the 4! implementation of the F2003 VALUE attribute for gfortran. 5! 6! Contributed by Paul Thomas <pault@gcc.gnu.org> 7! 8program test_value 9 integer(8) :: i = 42 10 11 call bar (i) 12 if (i /= 42) STOP 1 13contains 14 subroutine bar (i) 15 integer(8) :: i 16 value :: i ! { dg-error "Fortran 2003: VALUE" } 17 if (i /= 42) STOP 2 18 i = 99 19 if (i /= 99) STOP 3 20 end subroutine bar 21end program test_value 22