Sign in
gnu
/
gcc
/
93d183a5fff92d80c0545b7a7ce9b77fe7a258f7
/
.
/
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
;
}