! { dg-do compile } | |
! { dg-options "-std=f95" } | |
! Tests the standard check in the patch for PR29642, which requested the | |
! implementation of the F2003 VALUE attribute for gfortran. | |
! | |
! Contributed by Paul Thomas <pault@gcc.gnu.org> | |
! | |
program test_value | |
integer(8) :: i = 42 | |
call bar (i) | |
if (i /= 42) STOP 1 | |
contains | |
subroutine bar (i) | |
integer(8) :: i | |
value :: i ! { dg-error "Fortran 2003: VALUE" } | |
if (i /= 42) STOP 2 | |
i = 99 | |
if (i /= 99) STOP 3 | |
end subroutine bar | |
end program test_value |