repo.or.cz
/
official-gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
Skip gnat.dg/prot7.adb on hppa.
[official-gcc.git]
/
libgomp
/
testsuite
/
libgomp.c
/
pr80853.c
blob
3c0ff10c875538f1b7225e9f9edb01cc84dbef15
1
/* PR middle-end/80853 */
2
/* { dg-do run } */
3
4
__attribute__
((
noinline
,
noclone
))
void
5
foo
(
int
*
p
)
6
{
7
#pragma omp for reduction(+:p[:4])
8
for
(
int
i
=
0
;
i
<
64
;
i
++)
9
{
10
p
[
0
] +=
i
;
11
p
[
1
] +=
i
/
2
;
12
p
[
2
] +=
2
*
i
;
13
p
[
3
] +=
3
*
i
;
14
}
15
}
16
17
int
18
main
()
19
{
20
int
p
[
4
] = {
0
,
0
,
0
,
0
};
21
#pragma omp parallel
22
foo
(
p
);
23
if
(
p
[
0
] !=
63
*
64
/
2
24
||
p
[
1
] !=
31
*
32
25
||
p
[
2
] !=
63
*
64
26
||
p
[
3
] !=
3
*
63
*
64
/
2
)
27
__builtin_abort
();
28
return
0
;
29
}