repo.or.cz
/
official-gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
Dead
[official-gcc.git]
/
gomp-20050608-branch
/
gcc
/
testsuite
/
gfortran.dg
/
gomp
/
appendix-a
/
a.22.1.f90
blob
cc94b140384c55e9fdfd20f1ae1d0ab2f6f5e4ae
1
! { dg-do compile }
2
! { dg-require-effective-target tls }
3
4
INTEGER FUNCTION
INCREMENT_COUNTER
()
5
COMMON
/
A22_COMMON
/
COUNTER
6
!$OMP THREADPRIVATE(/A22_COMMON/)
7
COUNTER
=
COUNTER
+
1
8
INCREMENT_COUNTER
=
COUNTER
9
RETURN
10
END FUNCTION
INCREMENT_COUNTER