Sign in
llvm
/
llvm-archive
/
276bde03595d52e26812d2712817bc876da8ee7b
/
.
/
llvm-gcc-4.2
/
gcc
/
testsuite
/
gcc.dg
/
gomp
/
pr26412.c
blob: 6baecfe6895b9977bd0ca2f5965739041c5e9b9e [
file
] [
log
] [
blame
]
/* PR middle-end/26412 */
/* { dg-do compile } */
extern
double
a
[];
extern
int
b
;
double
test
(
void
)
{
int
i
;
double
c
=
0
;
#pragma
omp parallel
for
private
(
i
)
reduction
(+:
c
)
for
(
i
=
0
;
i
<
10000
;
i
++)
c
+=
a
[
b
];
return
c
;
}