Sign in
gnu
/
gcc
/
1e819bd95ebeefc1dc469daa1855ce005cb77822
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
goacc
/
vector_length.f90
blob: ddab9cfd8c1127d8fbdac15e6460b29e904e11b7 [
file
] [
log
] [
blame
]
program t
implicit
none
integer
,
parameter
::
n
=
100
integer a
(
n
),
i
!
$acc parallel loop num_gangs
(
100
)
num_workers
(
1
)
vector_length
(
32
)
do
i
=
1
,
n
a
(
i
)
=
i
enddo
!
$acc
end
parallel loop
end
program t