Sign in
llvm
/
llvm-archive
/
f8b4f79771a41ee0a0f02ac90619d37ccd834915
/
.
/
llvm-gcc-4.2
/
gcc
/
testsuite
/
gfortran.dg
/
gomp
/
appendix-a
/
a.1.1.f90
blob: fd83131b5e9274d20606e3004bbb4850249f207c [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
SUBROUTINE A1
(
N
,
A
,
B
)
INTEGER I
,
N
REAL B
(
N
),
A
(
N
)
!
$OMP PARALLEL DO
!
I
is
private
by
default
DO I
=
2
,
N
B
(
I
)
=
(
A
(
I
)
+
A
(
I
-
1
))
/
2.0
ENDDO
!
$OMP
END
PARALLEL DO
END
SUBROUTINE A1