10 lines
189 B
Fortran
10 lines
189 B
Fortran
|
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
|