! { dg-do run }
module globalvars
implicit none
integer a
!$acc declare create (a)
end module globalvars
program test
use globalvars
use openacc
if (acc_is_present (a) .neqv. .true.) STOP 1
end program test