1! { dg-do run }
2
3module vars
4  implicit none
5  real b
6 !$acc declare create (b)
7end module vars
8
9program test
10  use vars
11  use openacc
12  implicit none
13  real a
14
15  if (acc_is_present (b) .neqv. .true.) STOP 1
16
17  a = 2.0
18
19  !$acc parallel copy (a)
20    b = a
21    a = 1.0
22    a = a + b
23   !$acc end parallel
24
25  if (acc_is_present (b) .neqv. .true.) STOP 2
26
27  if (a .ne. 3.0) STOP 3
28
29end program test
30