blob: 2aa79079d91170bdf22112516c250de61ed70be6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
! { 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
|
