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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gcc.dg/] [gomp/] [block-1.c] - Blame information for rev 867

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


// { dg-do compile }
 
void foo()
{
  bad1:
  #pragma omp parallel
    goto bad1;                  // { dg-error "invalid exit" }
 
  goto bad2;                    // { dg-error "invalid entry" }
  #pragma omp parallel
    {
      bad2: ;
    }
 
  #pragma omp parallel
    {
      int i;
      goto ok1;
      for (i = 0; i < 10; ++i)
        { ok1: break; }
    }
}

Line No.	Rev	Author	Line
1	149	jeremybenn	`// { dg-do compile }`
2
3			`void foo()`
4			`{`
5			`bad1:`
6			`#pragma omp parallel`
7			`goto bad1; // { dg-error "invalid exit" }`
8
9			`goto bad2; // { dg-error "invalid entry" }`
10			`#pragma omp parallel`
11			`{`
12			`bad2: ;`
13			`}`
14
15			`#pragma omp parallel`
16			`{`
17			`int i;`
18			`goto ok1;`
19			`for (i = 0; i < 10; ++i)`
20			`{ ok1: break; }`
21			`}`
22			`}`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gcc.dg/] [gomp/] [block-1.c] - Blame information for rev 867