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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [g++.dg/] [gomp/] [clause-1.C] - Blame information for rev 823

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


// { dg-do compile }
 
struct T
{
  int n;
 
  void test();
};
 
void T::test()
{
  #pragma omp parallel private(n)       // { dg-error "T::n" }
    n = 1;
 
  #pragma omp parallel shared(n)        // { dg-error "T::n" }
    n = 1;
 
  #pragma omp parallel firstprivate(n)  // { dg-error "T::n" }
    n = 1;
 
  #pragma omp sections lastprivate(n)   // { dg-error "T::n" }
    { n = 1; }
 
  #pragma omp parallel reduction(+:n)   // { dg-error "T::n" }
    n = 1;
 
  #pragma omp single copyprivate(n)     // { dg-error "T::n" }
    n = 1;
 
  #pragma omp parallel copyin(n)        // { dg-error "T::n" }
    n = 1;
}

Line No.	Rev	Author	Line
1	149	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			`}`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [g++.dg/] [gomp/] [clause-1.C] - Blame information for rev 823