Subversion Repositories openrisc

/* { dg-do compile } */

int x;

const int y = 0;

int bar(void);

void f1(void)

{

  #pragma omp atomic

    x %= 2;             /* { dg-error "invalid operator" } */

  #pragma omp atomic

    x = x + 1;

  #pragma omp atomic

    x = 1;              /* { dg-error "invalid form" } */

  #pragma omp atomic

    ++y;                /* { dg-error "read-only variable" } */

  #pragma omp atomic

    y--;                /* { dg-error "read-only variable" } */

  #pragma omp atomic

    y += 1;             /* { dg-error "read-only variable" } */

  #pragma omp atomic

    bar();              /* { dg-error "invalid operator" } */

  #pragma omp atomic

    bar() += 1;         /* { dg-error "lvalue required" } */

  #pragma omp atomic a  /* { dg-error "expected end of line" } */

    x++;

  #pragma omp atomic

    ;                   /* { dg-error "expected primary-expression" } */

  #pragma omp atomic

  #pragma omp atomic    /* { dg-error "not allowed" } */

    ;

  /* Check that we didn't get stuck on the pragma eol marker.  */

  undef;                /* { dg-error "" } */

}