Mercurial > hg > CbC > CbC_gcc

annotate libgomp/testsuite/libgomp.c/udr-3.c @ 145:1830386684a0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-9.2.0
author anatofuz
date Thu, 13 Feb 2020 11:34:05 +0900
parents 04ced10e8804
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
111
kono
parents:
diff changeset
1 /* { dg-do run } */
kono
parents:
diff changeset
2
kono
parents:
diff changeset
3 extern void abort ();
kono
parents:
diff changeset
4
kono
parents:
diff changeset
5 struct S;
kono
parents:
diff changeset
6 void foo (struct S *, struct S *);
kono
parents:
diff changeset
7 #pragma omp declare reduction (+:struct S:foo (&omp_out, &omp_in))
kono
parents:
diff changeset
8 struct S { int s; };
kono
parents:
diff changeset
9
kono
parents:
diff changeset
10 void
kono
parents:
diff changeset
11 foo (struct S *x, struct S *y)
kono
parents:
diff changeset
12 {
kono
parents:
diff changeset
13 x->s += y->s;
kono
parents:
diff changeset
14 }
kono
parents:
diff changeset
15
kono
parents:
diff changeset
16 int
kono
parents:
diff changeset
17 main ()
kono
parents:
diff changeset
18 {
kono
parents:
diff changeset
19 struct S s;
kono
parents:
diff changeset
20 int i = 0;
kono
parents:
diff changeset
21 s.s = 0;
kono
parents:
diff changeset
22 #pragma omp parallel reduction (+:s, i)
kono
parents:
diff changeset
23 {
kono
parents:
diff changeset
24 if (s.s != 0)
kono
parents:
diff changeset
25 abort ();
kono
parents:
diff changeset
26 s.s = 2;
kono
parents:
diff changeset
27 i = 1;
kono
parents:
diff changeset
28 }
kono
parents:
diff changeset
29 if (s.s != 2 * i)
kono
parents:
diff changeset
30 abort ();
kono
parents:
diff changeset
31 return 0;
kono
parents:
diff changeset
32 }