libgomp/testsuite/libgomp.oacc-fortran/declare-2.f90

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