aboutsummaryrefslogtreecommitdiffstats
path: root/gcc-4.2.1-5666.3/libgomp/testsuite/libgomp.c/appendix-a/a.19.1.c
diff options
context:
space:
mode:
Diffstat (limited to 'gcc-4.2.1-5666.3/libgomp/testsuite/libgomp.c/appendix-a/a.19.1.c')
-rw-r--r--gcc-4.2.1-5666.3/libgomp/testsuite/libgomp.c/appendix-a/a.19.1.c55
1 files changed, 0 insertions, 55 deletions
diff --git a/gcc-4.2.1-5666.3/libgomp/testsuite/libgomp.c/appendix-a/a.19.1.c b/gcc-4.2.1-5666.3/libgomp/testsuite/libgomp.c/appendix-a/a.19.1.c
deleted file mode 100644
index 65ffe624c..000000000
--- a/gcc-4.2.1-5666.3/libgomp/testsuite/libgomp.c/appendix-a/a.19.1.c
+++ /dev/null
@@ -1,55 +0,0 @@
-/* { 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;
-}