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