Sign in
llvm
/
llvm-archive
/
48649d2c83b557841c9e5c978d9ab5af13cb52e5
/
.
/
llvm-gcc-4.2
/
gcc
/
testsuite
/
gfortran.dg
/
gomp
/
appendix-a
/
a.30.1.f90
blob: e62cbf81bbcac12045706ab4ff439878e21ed81a [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
SUBROUTINE A30
(
N
,
A
,
B
)
INTEGER N
REAL A
(*),
B
(*)
INTEGER I
!
$OMP PARALLEL
!
$OMP DO LASTPRIVATE
(
I
)
DO I
=
1
,
N
-
1
A
(
I
)
=
B
(
I
)
+
B
(
I
+
1
)
ENDDO
!
$OMP
END
PARALLEL
A
(
I
)
=
B
(
I
)
!
I has the value of N here
END
SUBROUTINE A30