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
/
pr26943-1.c
blob
86c43f04bc9897e6f8b59f6e2b7867fd3e066635
1
/* PR c++/26943 */
2
/* { dg-do run } */
3
4
extern
void
abort
(
void
);
5
extern
void
omp_set_dynamic
(
int
);
6
int
n
=
6
;
7
8
int
9
main
(
void
)
10
{
11
int
i
,
x
=
0
;
12
omp_set_dynamic
(
0
);
13
#pragma omp parallel for num_threads (16) firstprivate (n) lastprivate (n) \
14
schedule (static, 1) reduction (+: x)
15
for
(
i
=
0
;
i
<
16
;
i
++)
16
{
17
if
(
n
!=
6
)
18
++
x
;
19
n
=
i
;
20
}
21
if
(
x
||
n
!=
15
)
22
abort
();
23
return
0
;
24
}