OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [g++.dg/] [gomp/] [clause-1.C] - Blame information for rev 774

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 693 jeremybenn
// { dg-do compile }
2
 
3
struct T
4
{
5
  int n;
6
 
7
  void test();
8
};
9
 
10
void T::test()
11
{
12
  #pragma omp parallel private(n)       // { dg-error "T::n" }
13
    n = 1;
14
 
15
  #pragma omp parallel shared(n)        // { dg-error "T::n" }
16
    n = 1;
17
 
18
  #pragma omp parallel firstprivate(n)  // { dg-error "T::n" }
19
    n = 1;
20
 
21
  #pragma omp sections lastprivate(n)   // { dg-error "T::n" }
22
    { n = 1; }
23
 
24
  #pragma omp parallel reduction(+:n)   // { dg-error "T::n" }
25
    n = 1;
26
 
27
  #pragma omp single copyprivate(n)     // { dg-error "T::n" }
28
    n = 1;
29
 
30
  #pragma omp parallel copyin(n)        // { dg-error "T::n" }
31
    n = 1;
32
}

powered by: WebSVN 2.1.0

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