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