URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gcc.dg/] [gomp/] [sharing-1.c] - Rev 816
Compare with Previous | Blame | View Log
/* { dg-do compile } */ /* { dg-require-effective-target tls } */ #include <stdlib.h> int thrglobalvar; #pragma omp threadprivate (thrglobalvar) int globalvar; const int constvar = 8; int foo (int x) { return x; } int bar (int *x) { return *x; } int main (void) { static int thrlocvar; #pragma omp threadprivate (thrlocvar) static int locvar; static int *p; int i, j, s, l; p = malloc (sizeof (int)); if (p == NULL) return 0; *p = 7; s = 6; l = 0; #pragma omp parallel for /* { dg-error "enclosing parallel" } */ \ default (none) private (p) shared (s) for (i = 0; i < 64; i++) { int k = foo (0); /* Predetermined - private (automatic var declared */ k++; /* in scope of construct). */ thrglobalvar++; /* Predetermined - threadprivate. */ thrlocvar++; /* Predetermined - threadprivate. */ foo (i); /* Predetermined - private (omp for loop variable). */ foo (constvar); /* Predetermined - shared (const qualified type). */ foo (*p); /* *p predetermined - shared (heap allocated */ (*p)++; /* storage). */ bar (p); /* Explicitly determined - private. */ foo (s); /* Explicitly determined - shared. */ globalvar++; /* { dg-error "not specified in" } */ locvar++; /* { dg-error "not specified in" } */ l++; /* { dg-error "not specified in" } */ for (j = 0; j < 2; j++); /* { dg-error "not specified in" } */ } return 0; }