Subversion Repositories openrisc

/a.20.1.c

a.20.1.c Property changes : Added: svn:eol-style ## -0,0 +1 ## +native \ No newline at end of property Added: svn:keywords ## -0,0 +1 ## +Id \ No newline at end of property Index: a.20.2.c =================================================================== --- a.20.2.c (nonexistent) +++ a.20.2.c (revision 816) @@ -0,0 +1,18 @@ +/* { dg-do compile } */ + +void +a20 () +{ + int a = 1; +#pragma omp parallel + { + if (a != 0) + { +#pragma omp flush(a) + } + if (a != 0) + { +#pragma omp barrier + } + } +}

a.20.2.c Property changes : Added: svn:eol-style ## -0,0 +1 ## +native \ No newline at end of property Added: svn:keywords ## -0,0 +1 ## +Id \ No newline at end of property Index: a.21.2.c =================================================================== --- a.21.2.c (nonexistent) +++ a.21.2.c (revision 816) @@ -0,0 +1,22 @@ +/* { dg-do compile } */ + +void +work (int i) +{ +} + +void +a21_wrong (int n) +{ + int i; +#pragma omp for ordered + for (i = 0; i < n; i++) + { +/* incorrect because an iteration may not execute more than one + ordered region */ +#pragma omp ordered + work (i); +#pragma omp ordered + work (i + 1); + } +}

a.21.2.c Property changes : Added: svn:eol-style ## -0,0 +1 ## +native \ No newline at end of property Added: svn:keywords ## -0,0 +1 ## +Id \ No newline at end of property Index: a.22.1.c =================================================================== --- a.22.1.c (nonexistent) +++ a.22.1.c (revision 816) @@ -0,0 +1,11 @@ +/* { dg-do compile } */ +/* { dg-require-effective-target tls } */ + +int counter = 0; +#pragma omp threadprivate(counter) +int +increment_counter () +{ + counter++; + return (counter); +}

a.22.1.c Property changes : Added: svn:eol-style ## -0,0 +1 ## +native \ No newline at end of property Added: svn:keywords ## -0,0 +1 ## +Id \ No newline at end of property Index: a.21.3.c =================================================================== --- a.21.3.c (nonexistent) +++ a.21.3.c (revision 816) @@ -0,0 +1,23 @@ +/* { dg-do compile } */ + +void work (int); + +void +a21_good (int n) +{ + int i; +#pragma omp for ordered + for (i = 0; i < n; i++) + { + if (i <= 10) + { +#pragma omp ordered + work (i); + } + if (i > 10) + { +#pragma omp ordered + work (i + 1); + } + } +}

a.21.3.c Property changes : Added: svn:eol-style ## -0,0 +1 ## +native \ No newline at end of property Added: svn:keywords ## -0,0 +1 ## +Id \ No newline at end of property Index: a.22.2.c =================================================================== --- a.22.2.c (nonexistent) +++ a.22.2.c (revision 816) @@ -0,0 +1,11 @@ +/* { dg-do compile } */ +/* { dg-require-effective-target tls } */ + +int +increment_counter_2 () +{ + static int counter = 0; +#pragma omp threadprivate(counter) + counter++; + return (counter); +}

a.22.2.c Property changes : Added: svn:eol-style ## -0,0 +1 ## +native \ No newline at end of property Added: svn:keywords ## -0,0 +1 ## +Id \ No newline at end of property Index: a.24.1.c =================================================================== --- a.24.1.c (nonexistent) +++ a.24.1.c (revision 816) @@ -0,0 +1,35 @@ +/* { dg-do compile } */ +/* { dg-require-effective-target tls } */ + +extern int omp_get_num_threads (void); +int x, y, t, z[1000]; +#pragma omp threadprivate(x) +void +a24 (int a) +{ + const int c = 1; + int i = 0; + int l = 0; +#pragma omp parallel default(none) private(a) shared(z) + { + int j = omp_get_num_threads (); + /* O.K. - j is declared within parallel region */ + /* O.K. - a is listed in private clause */ + /* - z is listed in shared clause */ + x = c; /* O.K. - x is threadprivate */ + /* - c has const-qualified type */ + z[i] = y; + /* { dg-error "'i' not specified" "" { target *-*-* } 21 } */ + /* { dg-error "enclosing parallel" "" { target *-*-* } 13 } */ + /* { dg-error "'y' not specified" "" { target *-*-* } 21 } */ +#pragma omp for firstprivate(y) + for (i = 0; i < 10; i++) + { + z[i] = y; /* O.K. - i is the loop iteration variable */ + /* - y is listed in firstprivate clause */ + } + z[l] = t; + /* { dg-error "'l' not specified" "" { target *-*-* } 31 } */ + /* { dg-error "'t' not specified" "" { target *-*-* } 31 } */ + } +}

a.24.1.c Property changes : Added: svn:eol-style ## -0,0 +1 ## +native \ No newline at end of property Added: svn:keywords ## -0,0 +1 ## +Id \ No newline at end of property Index: a.26.2.c =================================================================== --- a.26.2.c (nonexistent) +++ a.26.2.c (revision 816) @@ -0,0 +1,21 @@ +/* { dg-do compile } */ +/* { dg-options "-fopenmp -std=c99" } */ + +int a; +void +g (int k) +{ + a = k; /* The global "a", not the private "a" in f */ +} + +void +f (int n) +{ + int a = 0; +#pragma omp parallel for private(a) + for (int i = 1; i < n; i++) + { + a = i; + g (a * 2); /* Private copy of "a" */ + } +}

a.26.2.c Property changes : Added: svn:eol-style ## -0,0 +1 ## +native \ No newline at end of property Added: svn:keywords ## -0,0 +1 ## +Id \ No newline at end of property Index: a.27.1.c =================================================================== --- a.27.1.c (nonexistent) +++ a.27.1.c (revision 816) @@ -0,0 +1,15 @@ +/* { dg-do compile } */ + +void +a27 () +{ + int i, a; +#pragma omp parallel private(a) + { +#pragma omp parallel for private(a) + for (i = 0; i < 10; i++) + { + /* do work here */ + } + } +}

a.27.1.c Property changes : Added: svn:eol-style ## -0,0 +1 ## +native \ No newline at end of property Added: svn:keywords ## -0,0 +1 ## +Id \ No newline at end of property Index: a.10.1.c =================================================================== --- a.10.1.c (nonexistent) +++ a.10.1.c (revision 816) @@ -0,0 +1,27 @@ +/* { dg-do compile } */ + +#include +void +work1 () +{ +} + +void +work2 () +{ +} +void +a10 () +{ +#pragma omp parallel + { +#pragma omp single + printf ("Beginning work1.\n"); + work1 (); +#pragma omp single + printf ("Finishing work1.\n"); +#pragma omp single nowait + printf ("Finished work1 and beginning work2.\n"); + work2 (); + } +}

a.10.1.c Property changes : Added: svn:eol-style ## -0,0 +1 ## +native \ No newline at end of property Added: svn:keywords ## -0,0 +1 ## +Id \ No newline at end of property Index: a.30.1.c =================================================================== --- a.30.1.c (nonexistent) +++ a.30.1.c (revision 816) @@ -0,0 +1,14 @@ +/* { dg-do compile } */ + +void +a30 (int n, float *a, float *b) +{ + int i; +#pragma omp parallel + { +#pragma omp for lastprivate(i) + for (i = 0; i < n - 1; i++) + a[i] = b[i] + b[i + 1]; + } + a[i] = b[i]; /* i == n-1 here */ +}

a.30.1.c Property changes : Added: svn:eol-style ## -0,0 +1 ## +native \ No newline at end of property Added: svn:keywords ## -0,0 +1 ## +Id \ No newline at end of property Index: a.12.1.c =================================================================== --- a.12.1.c (nonexistent) +++ a.12.1.c (revision 816) @@ -0,0 +1,41 @@ +/* { dg-do compile } */ + +#include +extern float average (float, float, float); +void +a12 (float *x, float *xold, int n, float tol) +{ + int c, i, toobig; + float error, y; + c = 0; +#pragma omp parallel + { + do + { +#pragma omp for private(i) + for (i = 1; i < n - 1; ++i) + { + xold[i] = x[i]; + } +#pragma omp single + { + toobig = 0; + } +#pragma omp for private(i,y,error) reduction(+:toobig) + for (i = 1; i < n - 1; ++i) + { + y = x[i]; + x[i] = average (xold[i - 1], x[i], xold[i + 1]); + error = y - x[i]; + if (error > tol || error < -tol) + ++toobig; + } +#pragma omp master + { + ++c; + printf ("iteration %d, toobig=%d\n", c, toobig); + } + } + while (toobig > 0); + } +}

a.12.1.c Property changes : Added: svn:eol-style ## -0,0 +1 ## +native \ No newline at end of property Added: svn:keywords ## -0,0 +1 ## +Id \ No newline at end of property Index: a.31.1.c =================================================================== --- a.31.1.c (nonexistent) +++ a.31.1.c (revision 816) @@ -0,0 +1,17 @@ +/* { dg-do compile } */ + +void +a31_1 (float *x, int *y, int n) +{ + int i, b; + float a; + a = 0.0; + b = 0; +#pragma omp parallel for private(i) shared(x, y, n) \ + reduction(+:a) reduction(^:b) + for (i = 0; i < n; i++) + { + a += x[i]; + b ^= y[i]; + } +}

a.31.1.c Property changes : Added: svn:eol-style ## -0,0 +1 ## +native \ No newline at end of property Added: svn:keywords ## -0,0 +1 ## +Id \ No newline at end of property Index: a.13.1.c =================================================================== --- a.13.1.c (nonexistent) +++ a.13.1.c (revision 816) @@ -0,0 +1,18 @@ +/* { dg-do compile } */ + +int dequeue (float *a); +void work (int i, float *a); +void +a13 (float *x, float *y) +{ + int ix_next, iy_next; +#pragma omp parallel shared(x, y) private(ix_next, iy_next) + { +#pragma omp critical (xaxis) + ix_next = dequeue (x); + work (ix_next, x); +#pragma omp critical (yaxis) + iy_next = dequeue (y); + work (iy_next, y); + } +}

a.13.1.c Property changes : Added: svn:eol-style ## -0,0 +1 ## +native \ No newline at end of property Added: svn:keywords ## -0,0 +1 ## +Id \ No newline at end of property Index: a.14.1.c =================================================================== --- a.14.1.c (nonexistent) +++ a.14.1.c (revision 816) @@ -0,0 +1,23 @@ +/* { dg-do compile } */ + +void +a14 () +{ + int i = 1; +#pragma omp parallel sections + { +#pragma omp section + { +#pragma omp critical (name) + { +#pragma omp parallel + { +#pragma omp single + { + i++; + } + } + } + } + } +}

a.14.1.c Property changes : Added: svn:eol-style ## -0,0 +1 ## +native \ No newline at end of property Added: svn:keywords ## -0,0 +1 ## +Id \ No newline at end of property Index: a.32.1.c =================================================================== --- a.32.1.c (nonexistent) +++ a.32.1.c (revision 816) @@ -0,0 +1,27 @@ +/* { dg-do compile } */ +/* { dg-require-effective-target tls } */ + +#include +float *work; +int size; +float tol; +void build (void); +#pragma omp threadprivate(work,size,tol) +void +a32 (float t, int n) +{ + tol = t; + size = n; +#pragma omp parallel copyin(tol,size) + { + build (); + } +} +void +build () +{ + int i; + work = (float *) malloc (sizeof (float) * size); + for (i = 0; i < size; ++i) + work[i] = tol; +}

a.32.1.c Property changes : Added: svn:eol-style ## -0,0 +1 ## +native \ No newline at end of property Added: svn:keywords ## -0,0 +1 ## +Id \ No newline at end of property Index: a.31.2.c =================================================================== --- a.31.2.c (nonexistent) +++ a.31.2.c (revision 816) @@ -0,0 +1,27 @@ +/* { dg-do compile } */ + +void +a31_2 (float *x, int *y, int n) +{ + int i, b, b_p; + float a, a_p; + a = 0.0; + b = 0; +#pragma omp parallel shared(a, b, x, y, n) \ + private(a_p, b_p) + { + a_p = 0.0; + b_p = 0; +#pragma omp for private(i) + for (i = 0; i < n; i++) + { + a_p += x[i]; + b_p ^= y[i]; + } +#pragma omp critical + { + a += a_p; + b ^= b_p; + } + } +}

a.31.2.c Property changes : Added: svn:eol-style ## -0,0 +1 ## +native \ No newline at end of property Added: svn:keywords ## -0,0 +1 ## +Id \ No newline at end of property Index: a.33.1.c =================================================================== --- a.33.1.c (nonexistent) +++ a.33.1.c (revision 816) @@ -0,0 +1,14 @@ +/* { dg-do compile } */ +/* { dg-require-effective-target tls } */ + +#include +float x, y; +#pragma omp threadprivate(x, y) +void +init (float a, float b) +{ +#pragma omp single copyprivate(a,b,x,y) + { + scanf ("%f %f %f %f", &a, &b, &x, &y); + } +}

a.33.1.c Property changes : Added: svn:eol-style ## -0,0 +1 ## +native \ No newline at end of property Added: svn:keywords ## -0,0 +1 ## +Id \ No newline at end of property Index: a.33.2.c =================================================================== --- a.33.2.c (nonexistent) +++ a.33.2.c (revision 816) @@ -0,0 +1,26 @@ +/* { dg-do compile } */ + +#include +#include +float +read_next () +{ + float *tmp; + float return_val; +#pragma omp single copyprivate(tmp) + { + tmp = (float *) malloc (sizeof (float)); + } /* copies the pointer only */ +#pragma omp master + { + scanf ("%f", tmp); + } +#pragma omp barrier + return_val = *tmp; +#pragma omp barrier +#pragma omp single nowait + { + free (tmp); + } + return return_val; +}

a.33.2.c Property changes : Added: svn:eol-style ## -0,0 +1 ## +native \ No newline at end of property Added: svn:keywords ## -0,0 +1 ## +Id \ No newline at end of property Index: a.34.1.c =================================================================== --- a.34.1.c (nonexistent) +++ a.34.1.c (revision 816) @@ -0,0 +1,25 @@ +/* { dg-do compile } */ + +void +work (int i, int j) +{ +} + +void +good_nesting (int n) +{ + int i, j; +#pragma omp parallel default(shared) + { +#pragma omp for + for (i = 0; i < n; i++) + { +#pragma omp parallel shared(i, n) + { +#pragma omp for + for (j = 0; j < n; j++) + work (i, j); + } + } + } +}

a.34.1.c Property changes : Added: svn:eol-style ## -0,0 +1 ## +native \ No newline at end of property Added: svn:keywords ## -0,0 +1 ## +Id \ No newline at end of property Index: a.17.1.c =================================================================== --- a.17.1.c (nonexistent) +++ a.17.1.c (revision 816) @@ -0,0 +1,20 @@ +/* { dg-do compile } */ + +void +a17_1_wrong () +{ + union + { + int n; + float x; + } u; +#pragma omp parallel + { +#pragma omp atomic + u.n++; +#pragma omp atomic + u.x += 1.0; +/* Incorrect because the atomic constructs reference the same location + through incompatible types */ + } +}

a.17.1.c Property changes : Added: svn:eol-style ## -0,0 +1 ## +native \ No newline at end of property Added: svn:keywords ## -0,0 +1 ## +Id \ No newline at end of property Index: a.34.2.c =================================================================== --- a.34.2.c (nonexistent) +++ a.34.2.c (revision 816) @@ -0,0 +1,29 @@ +/* { dg-do compile } */ + +void +work (int i, int j) +{ +} + +void +work1 (int i, int n) +{ + int j; +#pragma omp parallel default(shared) + { +#pragma omp for + for (j = 0; j < n; j++) + work (i, j); + } +} +void +good_nesting2 (int n) +{ + int i; +#pragma omp parallel default(shared) + { +#pragma omp for + for (i = 0; i < n; i++) + work1 (i, n); + } +}

a.34.2.c Property changes : Added: svn:eol-style ## -0,0 +1 ## +native \ No newline at end of property Added: svn:keywords ## -0,0 +1 ## +Id \ No newline at end of property Index: a.35.1.c =================================================================== --- a.35.1.c (nonexistent) +++ a.35.1.c (revision 816) @@ -0,0 +1,23 @@ +/* { dg-do compile } */ + +void +work (int i, int j) +{ +} + +void +wrong1 (int n) +{ +#pragma omp parallel default(shared) + { + int i, j; +#pragma omp for + for (i = 0; i < n; i++) + { + /* incorrect nesting of loop regions */ +#pragma omp for /* { dg-warning "may not be closely nested" } */ + for (j = 0; j < n; j++) + work (i, j); + } + } +}

a.35.1.c Property changes : Added: svn:eol-style ## -0,0 +1 ## +native \ No newline at end of property Added: svn:keywords ## -0,0 +1 ## +Id \ No newline at end of property Index: a.17.2.c =================================================================== --- a.17.2.c (nonexistent) +++ a.17.2.c (revision 816) @@ -0,0 +1,20 @@ +/* { dg-do compile } */ + +void +a17_2_wrong () +{ + int x; + int *i; + float *r; + i = &x; + r = (float *) &x; +#pragma omp parallel + { +#pragma omp atomic + *i += 1; +#pragma omp atomic + *r += 1.0; +/* Incorrect because the atomic constructs reference the same location + through incompatible types */ + } +}

a.17.2.c Property changes : Added: svn:eol-style ## -0,0 +1 ## +native \ No newline at end of property Added: svn:keywords ## -0,0 +1 ## +Id \ No newline at end of property Index: a.35.2.c =================================================================== --- a.35.2.c (nonexistent) +++ a.35.2.c (revision 816) @@ -0,0 +1,25 @@ +/* { dg-do compile } */ + +void work (int, int); + +void +work1 (int i, int n) +{ + int j; + /* incorrect nesting of loop regions */ +#pragma omp for + for (j = 0; j < n; j++) + work (i, j); +} + +void +wrong2 (int n) +{ +#pragma omp parallel default(shared) + { + int i; +#pragma omp for + for (i = 0; i < n; i++) + work1 (i, n); + } +}

a.35.2.c Property changes : Added: svn:eol-style ## -0,0 +1 ## +native \ No newline at end of property Added: svn:keywords ## -0,0 +1 ## +Id \ No newline at end of property Index: a.35.3.c =================================================================== --- a.35.3.c (nonexistent) +++ a.35.3.c (revision 816) @@ -0,0 +1,19 @@ +/* { dg-do compile } */ + +void work (int, int); + +void +wrong3 (int n) +{ +#pragma omp parallel default(shared) + { + int i; +#pragma omp for + for (i = 0; i < n; i++) + { +/* incorrect nesting of regions */ +#pragma omp single /* { dg-warning "may not be closely nested" } */ + work (i, 0); + } + } +}

a.35.3.c Property changes : Added: svn:eol-style ## -0,0 +1 ## +native \ No newline at end of property Added: svn:keywords ## -0,0 +1 ## +Id \ No newline at end of property Index: a.37.1.c =================================================================== --- a.37.1.c (nonexistent) +++ a.37.1.c (revision 816) @@ -0,0 +1,13 @@ +/* { dg-do compile } */ + +extern int omp_get_num_threads (void); +void work (int i); +void +incorrect () +{ + int np, i; + np = omp_get_num_threads (); /* misplaced */ +#pragma omp parallel for schedule(static) + for (i = 0; i < np; i++) + work (i); +}

a.37.1.c Property changes : Added: svn:eol-style ## -0,0 +1 ## +native \ No newline at end of property Added: svn:keywords ## -0,0 +1 ## +Id \ No newline at end of property Index: a.35.4.c =================================================================== --- a.35.4.c (nonexistent) +++ a.35.4.c (revision 816) @@ -0,0 +1,18 @@ +/* { dg-do compile } */ + +void +wrong4 (int n) +{ +#pragma omp parallel default(shared) + { + int i; +#pragma omp for + for (i = 0; i < n; i++) + { + work (i, 0); + /* incorrect nesting of barrier region in a loop region */ +#pragma omp barrier + work (i, 1); + } + } +}

a.35.4.c Property changes : Added: svn:eol-style ## -0,0 +1 ## +native \ No newline at end of property Added: svn:keywords ## -0,0 +1 ## +Id \ No newline at end of property Index: a.37.2.c =================================================================== --- a.37.2.c (nonexistent) +++ a.37.2.c (revision 816) @@ -0,0 +1,14 @@ +/* { dg-do compile } */ + +extern int omp_get_thread_num (void); +void work (int i); +void +correct () +{ + int i; +#pragma omp parallel private(i) + { + i = omp_get_thread_num (); + work (i); + } +}

a.37.2.c Property changes : Added: svn:eol-style ## -0,0 +1 ## +native \ No newline at end of property Added: svn:keywords ## -0,0 +1 ## +Id \ No newline at end of property Index: a.35.5.c =================================================================== --- a.35.5.c (nonexistent) +++ a.35.5.c (revision 816) @@ -0,0 +1,16 @@ +/* { dg-do compile } */ + +void +wrong5 (int n) +{ +#pragma omp parallel + { +#pragma omp critical + { + work (n, 0); +/* incorrect nesting of barrier region in a critical region */ +#pragma omp barrier + work (n, 1); + } + } +}

a.35.5.c Property changes : Added: svn:eol-style ## -0,0 +1 ## +native \ No newline at end of property Added: svn:keywords ## -0,0 +1 ## +Id \ No newline at end of property Index: a.35.6.c =================================================================== --- a.35.6.c (nonexistent) +++ a.35.6.c (revision 816) @@ -0,0 +1,16 @@ +/* { dg-do compile } */ + +void +wrong6 (int n) +{ +#pragma omp parallel + { +#pragma omp single + { + work (n, 0); +/* incorrect nesting of barrier region in a single region */ +#pragma omp barrier + work (n, 1); + } + } +}

a.35.6.c Property changes : Added: svn:eol-style ## -0,0 +1 ## +native \ No newline at end of property Added: svn:keywords ## -0,0 +1 ## +Id \ No newline at end of property Index: a.1.1.c =================================================================== --- a.1.1.c (nonexistent) +++ a.1.1.c (revision 816) @@ -0,0 +1,10 @@ +/* { dg-do compile } */ + +void +a1 (int n, float *a, float *b) +{ + int i; +#pragma omp parallel for + for (i = 1; i < n; i++) /* i is private by default */ + b[i] = (a[i] + a[i - 1]) / 2.0; +}

a.1.1.c Property changes : Added: svn:eol-style ## -0,0 +1 ## +native \ No newline at end of property Added: svn:keywords ## -0,0 +1 ## +Id \ No newline at end of property Index: a.8.1.c =================================================================== --- a.8.1.c (nonexistent) +++ a.8.1.c (revision 816) @@ -0,0 +1,17 @@ +/* { dg-do compile } */ + +#include +void +a8 (int n, int m, float *a, float *b, float *y, float *z) +{ + int i; +#pragma omp parallel + { +#pragma omp for nowait + for (i = 1; i < n; i++) + b[i] = (a[i] + a[i - 1]) / 2.0; +#pragma omp for nowait + for (i = 0; i < m; i++) + y[i] = sqrt (z[i]); + } +}

a.8.1.c Property changes : Added: svn:eol-style ## -0,0 +1 ## +native \ No newline at end of property Added: svn:keywords ## -0,0 +1 ## +Id \ No newline at end of property Index: a.9.1.c =================================================================== --- a.9.1.c (nonexistent) +++ a.9.1.c (revision 816) @@ -0,0 +1,18 @@ +/* { dg-do compile } */ + +void XAXIS (); +void YAXIS (); +void ZAXIS (); +void +a9 () +{ +#pragma omp parallel sections + { +#pragma omp section + XAXIS (); +#pragma omp section + YAXIS (); +#pragma omp section + ZAXIS (); + } +}

a.9.1.c Property changes : Added: svn:eol-style ## -0,0 +1 ## +native \ No newline at end of property Added: svn:keywords ## -0,0 +1 ## +Id \ No newline at end of property