OpenCores
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] - Blame information for rev 816

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 149 jeremybenn
/* { dg-do compile } */
2
/* { dg-require-effective-target tls } */
3
 
4
#include <stdlib.h>
5
 
6
int thrglobalvar;
7
#pragma omp threadprivate (thrglobalvar)
8
int globalvar;
9
const int constvar = 8;
10
 
11
int
12
foo (int x)
13
{
14
  return x;
15
}
16
 
17
int
18
bar (int *x)
19
{
20
  return *x;
21
}
22
 
23
int
24
main (void)
25
{
26
  static int thrlocvar;
27
#pragma omp threadprivate (thrlocvar)
28
  static int locvar;
29
  static int *p;
30
  int i, j, s, l;
31
 
32
  p = malloc (sizeof (int));
33
  if (p == NULL)
34
    return 0;
35
  *p = 7;
36
  s = 6;
37
  l = 0;
38
#pragma omp parallel for /* { dg-error "enclosing parallel" } */ \
39
  default (none) private (p) shared (s)
40
  for (i = 0; i < 64; i++)
41
    {
42
      int k = foo (0);   /* Predetermined - private (automatic var declared */
43
      k++;              /* in scope of construct).  */
44
      thrglobalvar++;   /* Predetermined - threadprivate.  */
45
      thrlocvar++;      /* Predetermined - threadprivate.  */
46
      foo (i);          /* Predetermined - private (omp for loop variable).  */
47
      foo (constvar);   /* Predetermined - shared (const qualified type).  */
48
      foo (*p);         /* *p predetermined - shared (heap allocated */
49
      (*p)++;           /* storage).  */
50
      bar (p);          /* Explicitly determined - private.  */
51
      foo (s);          /* Explicitly determined - shared.  */
52
      globalvar++;      /* { dg-error "not specified in" } */
53
      locvar++;         /* { dg-error "not specified in" } */
54
      l++;              /* { dg-error "not specified in" } */
55
      for (j = 0; j < 2; j++); /* { dg-error "not specified in" } */
56
    }
57
  return 0;
58
}

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.