2 ! Tests the constraints in the patch for PR29642, which requested the
3 ! implementation of the F2003 VALUE attribute for gfortran.
5 ! Contributed by Paul Thomas <pault@gcc.gnu.org>
8 integer(8) :: i = 42, j ! { dg-error "not a dummy" }
9 integer(8), value :: k ! { dg-error "not a dummy" }
16 value :: i ! { dg-error "conflicts with DIMENSION" }
23 value :: i ! { dg-error "conflicts with POINTER" }
27 integer function bar_3 (i)
30 value :: bar_3 ! { dg-error "conflicts with FUNCTION" }
35 subroutine bar_4 (i, j)
36 integer(8), intent(inout) :: i
37 integer(8), intent(out) :: j
38 value :: i ! { dg-error "conflicts with INTENT" }
39 value :: j ! { dg-error "conflicts with INTENT" }
44 integer function bar_5 ()
47 integer, parameter :: j = 99
48 value :: i ! { dg-error "conflicts with EXTERNAL" }
49 value :: j ! { dg-error "PARAMETER attribute conflicts with" }
53 end program test_value