Sign in
llvm
/
llvm-archive
/
f91d1660b4827134c7666ae9637f21a2741d183f
/
.
/
llvm-gcc-4.2
/
libgomp
/
testsuite
/
libgomp.fortran
/
appendix-a
/
a.26.1.f90
blob: e9ebf87af73cb0d7fd099063eec5e727b5903f7f [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
PROGRAM A26
INTEGER I
,
J
I
=
1
J
=
2
!
$OMP PARALLEL PRIVATE
(
I
)
FIRSTPRIVATE
(
J
)
I
=
3
J
=
J
+
2
!
$OMP
END
PARALLEL
PRINT
*,
I
,
J
!
I
and
J are
undefined
END
PROGRAM A26