Sign in
android
/
toolchain
/
gcc
/
donut
/
.
/
gcc-4.4.0
/
gcc
/
testsuite
/
gfortran.dg
/
gomp
/
appendix-a
/
a.22.1.f90
blob: 96b6abc9187d6458747ef661353be13eda0303b7 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
{
dg
-
require
-
effective
-
target tls_native
}
INTEGER FUNCTION INCREMENT_COUNTER
()
COMMON
/
A22_COMMON
/
COUNTER
!
$OMP THREADPRIVATE
(
/A22_COMMON/
)
COUNTER
=
COUNTER
+
1
INCREMENT_COUNTER
=
COUNTER
RETURN
END
FUNCTION INCREMENT_COUNTER