Sign in
fuchsia
/
third_party
/
cmake
/
refs/heads/upstream/master
/
.
/
Tests
/
FindOpenACC
/
FortranTest
/
main.f90
blob: 2ff1ba029478b4c7e8c4b3132c5e0b6ebd27c3b3 [
file
] [
log
] [
blame
]
program t
integer
(
4
)
a
(
10000
)
a
=
[
(
1
+
i
,
i
=
1
,
10000
)
]
!
$acc kernels
do
i
=
1
,
10000
if
(
a
(
i
)/
3000
*
3000.eq
.
a
(
i
))
print
*,
" located "
,
i
,
a
(
i
),
i
.
gt
.
5000
,
a
(
i
)/
5.0
end
do
!
$acc
end
kernels
end
