Sign in
gnu
/
gcc
/
4212a6a3e44f870412d9025eeb323fd4f50a61da
/
.
/
libgomp
/
testsuite
/
libgomp.c
/
pr42029.c
blob: ea7ac2c0986adb1873d48db96c9ce6054d37c68f [
file
] [
log
] [
blame
]
/* PR middle-end/42029 */
/* { dg-do run } */
extern
void
abort
(
void
);
int
main
()
{
int
i
;
_Complex
int
c
=
0
;
#pragma
omp parallel
for
private
(
i
)
reduction
(+:
c
)
for
(
i
=
0
;
i
<
8
;
++
i
)
c
+=
1
;
if
(
c
!=
8
)
abort
();
return
0
;
}