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


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

! { dg-do run }

module globalvars
  implicit none
  integer a
  !$acc declare create (a)
end module globalvars

program test
  use globalvars
  use openacc
  implicit none

  if (acc_is_present (a) .neqv. .true.) STOP 1

end program test