Mercurial > hg > CbC > CbC_gcc
view libgomp/testsuite/libgomp.c/appendix-a/a.19.1.c @ 158:494b0b89df80 default tip
...
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 25 May 2020 18:13:55 +0900 |
parents | a06113de4d67 |
children |
line wrap: on
line source
/* { dg-do run } */ int x, *p = &x; extern void abort (void); void f1 (int *q) { *q = 1; #pragma omp flush /* x, p, and *q are flushed */ /* because they are shared and accessible */ /* q is not flushed because it is not shared. */ } void f2 (int *q) { #pragma omp barrier *q = 2; #pragma omp barrier /* a barrier implies a flush */ /* x, p, and *q are flushed */ /* because they are shared and accessible */ /* q is not flushed because it is not shared. */ } int g (int n) { int i = 1, j, sum = 0; *p = 1; #pragma omp parallel reduction(+: sum) num_threads(2) { f1 (&j); /* i, n and sum were not flushed */ /* because they were not accessible in f1 */ /* j was flushed because it was accessible */ sum += j; f2 (&j); /* i, n, and sum were not flushed */ /* because they were not accessible in f2 */ /* j was flushed because it was accessible */ sum += i + j + *p + n; } return sum; } int main () { int result = g (10); if (result != 30) abort (); return 0; }