Sign in
llvm
/
llvm-archive
/
47f46514d69ad808308539dc6c69b907868fcf8a
/
.
/
llvm-gcc-4.2
/
gcc
/
testsuite
/
gfortran.dg
/
gomp
/
appendix-a
/
a.11.7.f90
blob: 86b8c7bc5b52e95b74fde0b3a1d75b1c44c36f6f [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
SUBROUTINE A11_7
(
AA
,
BB
,
CC
,
N
)
INTEGER N
REAL AA
(
N
),
BB
(
N
),
CC
(
N
)
!
$OMP PARALLEL
!
$OMP WORKSHARE
AA
(
1
:
50
)
=
BB
(
11
:
60
)
CC
(
11
:
20
)
=
AA
(
1
:
10
)
!
$OMP
END
WORKSHARE
!
$OMP
END
PARALLEL
END
SUBROUTINE A11_7