Sign in
gnu
/
gcc
/
refs/heads/devel/gimple-linterchange
/
.
/
libgomp
/
testsuite
/
libgomp.oacc-fortran
/
declare-2.f90
blob: 0e759dda98ef7529c134cfdd1b31150f25835705 [
file
] [
log
] [
blame
]
!
{
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
.)
call abort
end
program test