1! { dg-do run } 2 3module globalvars 4 implicit none 5 integer a 6 !$acc declare create (a) 7end module globalvars 8 9program test 10 use globalvars 11 use openacc 12 implicit none 13 14 if (acc_is_present (a) .neqv. .true.) STOP 1 15 16end program test 17