Sign in
llvm
/
llvm-archive
/
3698204cb8af2c80b326ae84c9a9e6a4bccbdedc
/
.
/
llvm-gcc-4.2
/
gcc
/
testsuite
/
gfortran.dg
/
gomp
/
appendix-a
/
a.7.1.f90
blob: 9f3b08d2e5199ca8d1ac9a6df1d7491f3ec965e8 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
SUBROUTINE A7_1
(
A
,
N
)
INTEGER OMP_GET_THREAD_NUM
REAL A
(*)
INTEGER I
,
MYOFFSET
,
N
!
$OMP PARALLEL PRIVATE
(
MYOFFSET
)
MYOFFSET
=
OMP_GET_THREAD_NUM
()*
N
DO I
=
1
,
N
A
(
MYOFFSET
+
I
)
=
FLOAT
(
I
)
ENDDO
!
$OMP
END
PARALLEL
END
SUBROUTINE A7_1