Sign in
chromium
/
external
/
github.com
/
Kitware
/
CMake
/
master
/
.
/
Tests
/
FindOpenACC
/
FortranTest
/
main.f90
blob: 2ff1ba029478b4c7e8c4b3132c5e0b6ebd27c3b3 [
file
]
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
