blob: d25683c2e50d1fb21f4aeb34350eb52eb7e9891c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
! { 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) call abort ()
contains
subroutine bar (i)
integer(8) :: i
value :: i ! { dg-error "Fortran 2003: VALUE" }
if (i /= 42) call abort ()
i = 99
if (i /= 99) call abort ()
end subroutine bar
end program test_value
|
