aboutsummaryrefslogtreecommitdiffstats
path: root/gcc-4.2.1-5666.3/libgomp/testsuite/libgomp.c/vla-1.c
diff options
context:
space:
mode:
Diffstat (limited to 'gcc-4.2.1-5666.3/libgomp/testsuite/libgomp.c/vla-1.c')
-rw-r--r--gcc-4.2.1-5666.3/libgomp/testsuite/libgomp.c/vla-1.c60
1 files changed, 0 insertions, 60 deletions
diff --git a/gcc-4.2.1-5666.3/libgomp/testsuite/libgomp.c/vla-1.c b/gcc-4.2.1-5666.3/libgomp/testsuite/libgomp.c/vla-1.c
deleted file mode 100644
index bdacdbbe8..000000000
--- a/gcc-4.2.1-5666.3/libgomp/testsuite/libgomp.c/vla-1.c
+++ /dev/null
@@ -1,60 +0,0 @@
-/* { dg-do run } */
-
-#include <omp.h>
-#include <stdlib.h>
-#include <string.h>
-
-int
-main (int argc, char **argv[])
-{
- int n = argc < 5 ? 12 : 31, i, m, l;
- char a[n + 3];
- unsigned short b[n / 2 - 1];
- int c[n * 2 + 1];
-
- for (i = 0; i < n + 3; i++)
- a[i] = i;
- for (i = 0; i < n / 2 - 1; i++)
- b[i] = (i << 8) | i;
- for (i = 0; i < n * 2 + 1; i++)
- c[i] = (i << 24) | i;
- l = 0;
- m = n;
-#pragma omp parallel default (shared) num_threads (4) \
- firstprivate (a, m) private (b, i) reduction (+:l)
- {
- for (i = 0; i < m + 3; i++)
- if (a[i] != i)
- l++;
- for (i = 0; i < m * 2 + 1; i++)
- if (c[i] != ((i << 24) | i))
- l++;
-#pragma omp barrier
- memset (a, omp_get_thread_num (), m + 3);
- for (i = 0; i < m / 2 - 1; i++)
- b[i] = a[0] + 7;
-#pragma omp master
- {
- for (i = 0; i < m * 2 + 1; i++)
- c[i] = a[0] + 16;
- }
-#pragma omp barrier
- if (a[0] != omp_get_thread_num ())
- l++;
- for (i = 1; i < m + 3; i++)
- if (a[i] != a[0])
- l++;
- for (i = 0; i < m / 2 - 1; i++)
- if (b[i] != a[0] + 7)
- l++;
- for (i = 0; i < m * 2 + 1; i++)
- if (c[i] != 16)
- l++;
- }
- if (l)
- abort ();
- for (i = 0; i < n * 2 + 1; i++)
- if (c[i] != 16)
- l++;
- return 0;
-}