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
/
libgomp
/
testsuite
/
libgomp.fortran
/
appendix-a
/
a.26.1.f90
blob
e9ebf87af73cb0d7fd099063eec5e727b5903f7f
1
! { dg-do run }
2
PROGRAM
A26
3
INTEGER
I
,
J
4
I
=
1
5
J
=
2
6
!$OMP PARALLEL PRIVATE(I) FIRSTPRIVATE(J)
7
I
=
3
8
J
=
J
+
2
9
!$OMP END PARALLEL
10
PRINT
*,
I
,
J
! I and J are undefined
11
END PROGRAM
A26