Sign in
llvm
/
llvm-archive
/
47f46514d69ad808308539dc6c69b907868fcf8a
/
.
/
llvm-gcc-4.2
/
gcc
/
testsuite
/
gfortran.dg
/
gomp
/
appendix-a
/
a.22.1.f90
blob: cc94b140384c55e9fdfd20f1ae1d0ab2f6f5e4ae [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
{
dg
-
require
-
effective
-
target tls
}
INTEGER FUNCTION INCREMENT_COUNTER
()
COMMON
/
A22_COMMON
/
COUNTER
!
$OMP THREADPRIVATE
(
/A22_COMMON/
)
COUNTER
=
COUNTER
+
1
INCREMENT_COUNTER
=
COUNTER
RETURN
END
FUNCTION INCREMENT_COUNTER