Sign in
gnu
/
gcc
/
33fdbbe4ce6055eb858096d01720ccf94aa854ec
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
gomp
/
reduction7.f90
blob: 5f0b7bd02f88b0c84cfef78e361f81cc0693344b [
file
] [
log
] [
blame
]
implicit
none
integer
::
a
,
b
,
i
a
=
0
!
$omp simd reduction
(
task
,+:
a
)
!
{
dg
-
error
"invalid 'task' reduction modifier on construct other than 'parallel', 'do', 'sections' or 'scope'"
}
do
i
=
1
,
10
a
=
a
+
1
end
do
end