1  /* { dg-do compile } */
       2  
       3  int x;
       4  double d;
       5  
       6  double
       7  foo (int y, double e, long double f)
       8  {
       9    double v;
      10    #pragma omp atomic compare compare	/* { dg-error "too many 'compare' clauses" } */
      11    x = x > y ? y : x;
      12    #pragma omp atomic compare fail(seq_cst) fail(seq_cst)	/* { dg-error "too many 'fail' clauses" } */
      13    d = e > d ? e : d;
      14    #pragma omp atomic compare,fail(seq_cst),fail(relaxed)	/* { dg-error "too many 'fail' clauses" } */
      15    d = e > d ? e : d;
      16    #pragma omp atomic compare weak weak	/* { dg-error "too many 'weak' clauses" } */
      17    d = d == e ? e + 1.0 : d;
      18    #pragma omp atomic read capture	/* { dg-error "'capture' clause is incompatible with 'read' or 'write' clauses" } */
      19    v = d;
      20    #pragma omp atomic capture, write	/* { dg-error "'capture' clause is incompatible with 'read' or 'write' clauses" } */
      21    d = v;
      22    #pragma omp atomic read compare	/* { dg-error "'compare' clause is incompatible with 'read' or 'write' clauses" } */
      23    v = d;
      24    #pragma omp atomic compare, write	/* { dg-error "'compare' clause is incompatible with 'read' or 'write' clauses" } */
      25    d = v;
      26    #pragma omp atomic read fail(seq_cst)	/* { dg-error "'fail' clause requires 'compare' clause" } */
      27    v = d;
      28    #pragma omp atomic fail(relaxed), write	/* { dg-error "'fail' clause requires 'compare' clause" } */
      29    d = v;
      30    #pragma omp atomic fail(relaxed) update	/* { dg-error "'fail' clause requires 'compare' clause" } */
      31    d += 3.0;
      32    #pragma omp atomic fail(relaxed)	/* { dg-error "'fail' clause requires 'compare' clause" } */
      33    d += 3.0;
      34    #pragma omp atomic capture fail(relaxed)	/* { dg-error "'fail' clause requires 'compare' clause" } */
      35    v = d += 3.0;
      36    #pragma omp atomic read weak		/* { dg-error "'weak' clause requires 'compare' clause" } */
      37    v = d;
      38    #pragma omp atomic weak, write	/* { dg-error "'weak' clause requires 'compare' clause" } */
      39    d = v;
      40    #pragma omp atomic weak update	/* { dg-error "'weak' clause requires 'compare' clause" } */
      41    d += 3.0;
      42    #pragma omp atomic weak		/* { dg-error "'weak' clause requires 'compare' clause" } */
      43    d += 3.0;
      44    #pragma omp atomic capture weak	/* { dg-error "'weak' clause requires 'compare' clause" } */
      45    v = d += 3.0;
      46    #pragma omp atomic compare,weak	/* { dg-error "'weak' clause requires atomic equality comparison" } */
      47    d = e > d ? e : d;
      48    #pragma omp atomic compare fail	/* { dg-error "expected '\\\(' before end of line" } */
      49    d = e > d ? e : d;
      50    #pragma omp atomic compare fail(	/* { dg-error "expected 'seq_cst', 'acquire' or 'relaxed' before end of line" } */
      51    d = e > d ? e : d;
      52    #pragma omp atomic compare fail()	/* { dg-error "expected 'seq_cst', 'acquire' or 'relaxed' before '\\\)' token" } */
      53    d = e > d ? e : d;
      54    #pragma omp atomic compare fail(foobar)	/* { dg-error "expected 'seq_cst', 'acquire' or 'relaxed' before 'foobar'" } */
      55    d = e > d ? e : d;
      56    #pragma omp atomic compare fail(acq_rel)	/* { dg-error "expected 'seq_cst', 'acquire' or 'relaxed' before 'acq_rel'" } */
      57    d = e > d ? e : d;
      58    #pragma omp atomic compare fail(release)	/* { dg-error "expected 'seq_cst', 'acquire' or 'relaxed' before 'release'" } */
      59    d = e > d ? e : d;
      60    #pragma omp atomic compare fail(seq_cst	/* { dg-error "expected '\\\)' before end of line" } */
      61    d = e > d ? e : d;
      62    return v;
      63  }