OSDN Git Service

2006-12-03 Paul Thomas <pault@gcc.gnu.org>
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / value_2.f90
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 !
8 program test_value
9   integer(8) :: i = 42
10
11   call bar (i)
12   if (i /= 42) call abort ()
13 contains
14   subroutine bar (i)
15     integer(8) :: i
16     value :: i      ! { dg-error "Fortran 2003: VALUE" }
17     if (i /= 42) call abort ()
18     i = 99
19     if (i /= 99) call abort ()
20   end subroutine bar
21 end program test_value