Sign in
gnu
/
gcc
/
e4f48d22eb7ffa29b0ede4a99c2de3d43f4eae05
/
.
/
libgomp
/
testsuite
/
libgomp.fortran
/
pr63938-1.f90
blob: eb85500ea4c1b962f778a8c7fbe324c1b0939c0e [
file
] [
log
] [
blame
]
!
PR fortran
/
63938
!
{
dg
-
do
run
}
program pr63938_1
integer
::
i
,
x
(
1
)
x
(
1
)
=
0
!
$omp parallel
do
do
i
=
1
,
1000
!
$omp atomic
x
(
1
)
=
x
(
1
)
+
1
end
do
!
$omp
end
parallel
do
if
(
x
(
1
)
.
ne
.
1000
)
STOP
1
end
program pr63938_1
