Retro68/gcc/libgomp/testsuite/libgomp.oacc-fortran/declare-2.f90
2017-04-10 13:32:00 +02:00

17 lines
285 B
Fortran

! { dg-do run { target openacc_nvidia_accel_selected } }
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.) call abort
end program test