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

Subversion Repositories openrisc

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

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

Line No. Rev Author Line
1 149 jeremybenn 
/* { dg-do compile } */
2 
/* { dg-options "-fopenmp -fdump-tree-omplower" } */
3 
 
4 
extern void bar(int);
5 
 
6 
void foo (void)
7 
{
8 
  #pragma omp critical
9 
    bar(0);
10 
 
11 
  /* Note that "name" is in its own namespace, thus this foo is not
12 
     the same as the function.  */
13 
  #pragma omp critical(foo)
14 
  {
15 
    bar(1);
16 
    bar(2);
17 
  }
18 
 
19 
  #pragma omp critical
20 
  #pragma omp critical(foo)
21 
    bar(3);
22 
}
23 
 
24 
/* { dg-final { scan-tree-dump-times "GOMP_critical_start" 2 "omplower" } } */
25 
/* { dg-final { scan-tree-dump-times "GOMP_critical_end" 2 "omplower" } } */
26 
/* { dg-final { scan-tree-dump-times "GOMP_critical_name_start" 2 "omplower" } } */
27 
/* { dg-final { scan-tree-dump-times "GOMP_critical_name_end" 2 "omplower" } } */
28 
/* { dg-final { cleanup-tree-dump "omplower" } } */

powered by: WebSVN 2.1.0

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