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