1! { dg-do compile }
2
3module test
4contains
5  subroutine oacc1
6    implicit none
7    integer :: i
8    integer, parameter :: a = 1
9    !$acc declare device_resident (a) ! { dg-error "is not a variable" }
10    !$acc data copy (a) ! { dg-error "not a variable" }
11    !$acc end data
12    !$acc data deviceptr (a) ! { dg-error "not a variable" }
13    !$acc end data
14    !$acc parallel private (a) ! { dg-error "not a variable" }
15    !$acc end parallel
16    !$acc host_data use_device (a) ! { dg-error "not a variable" }
17    !$acc end host_data
18    !$acc parallel loop reduction(+:a) ! { dg-error "not a variable" }
19    do i = 1,5
20    enddo
21    !$acc end parallel loop
22    !$acc parallel loop
23    do i = 1,5
24      !$acc cache (a) ! { dg-error "not a variable" }
25    enddo
26    !$acc end parallel loop
27    !$acc update device (a) ! { dg-error "not a variable" }
28    !$acc update host (a) ! { dg-error "not a variable" }
29    !$acc update self (a) ! { dg-error "not a variable" }
30  end subroutine oacc1
31end module test
32