Sign in
llvm
/
llvm-archive
/
1456578521548c1ea3e191fcd25bb39efd8203cd
/
.
/
llvm-gcc-4.2
/
gcc
/
testsuite
/
gfortran.dg
/
gomp
/
appendix-a
/
a.17.2.f90
blob: a19db8c0dc9243f1d0743c3eb1ca6e10e14134cf [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
SUBROUTINE SUB
()
COMMON
/
BLK
/
R
REAL R
!
$OMP ATOMIC
R
=
R
+
1.0
END
SUBROUTINE SUB
SUBROUTINE A17_2_WRONG
()
COMMON
/
BLK
/
I
INTEGER I
!
$OMP PARALLEL
!
$OMP ATOMIC
I
=
I
+
1
CALL SUB
()
!
$OMP
END
PARALLEL
END
SUBROUTINE A17_2_WRONG