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