Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gcc.dg/gomp/sharing-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 | 1830386684a0 |
children |
line wrap: on
line source
/* { 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); /* { dg-error "not specified in" } */ 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; }