Sign in
gnu
/
gcc
/
d769c5040874bf9546f2524f3f1d2a894165f92a
/
.
/
libgomp
/
testsuite
/
libgomp.fortran
/
task-reduction-18.f90
blob: 0cbd471832251fe6bbdcb30a29448ed0e2152269 [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
module
m
integer
::
a
=
0
end
module
m
program main
!
$omp task
!
$omp taskgroup task_reduction
(+:
a
)
!
$omp task in_reduction
(+:
a
)
a
=
a
+
1
!
$omp
end
task
!
$omp
end
taskgroup
!
$omp
end
task
end