Sign in
gnu
/
gcc
/
f49e3d28be44179f07b8a06159139ce77096dda7
/
.
/
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
