Sign in
gnu
/
gcc
/
d769c5040874bf9546f2524f3f1d2a894165f92a
/
.
/
libgomp
/
testsuite
/
libgomp.fortran
/
task-8.f90
blob: 037c63b8fa3496e600c87317b435752d35e9fa52 [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
program main
implicit
none
integer
::
i
i
=
0
!
$omp task
!
$omp target nowait
private
(
i
)
i
=
1
!
$omp
end
target
!
$omp taskwait
!
$omp
end
task
end
