1  /* { dg-shouldfail "error directive" } */
       2  
       3  #ifdef __cplusplus
       4  extern "C"
       5  #endif
       6  void abort ();
       7  
       8  int
       9  foo (int i, int x)
      10  {
      11    if (x)
      12      #pragma omp error severity(warning)	/* { dg-warning "'pragma omp error' encountered" } */
      13      i++;
      14    if (!x)
      15      ;
      16    else
      17      #pragma omp error severity(warning)	/* { dg-warning "'pragma omp error' encountered" } */
      18      i += 2;
      19    switch (0)
      20      #pragma omp error severity(warning)	/* { dg-warning "'pragma omp error' encountered" } */
      21      {
      22      default:
      23        break;
      24      }
      25    while (0)
      26      #pragma omp error message("42 - 1")	severity (warning) /* { dg-warning "'pragma omp error' encountered: 42 - 1" } */
      27      i += 4;
      28    lab:
      29    #pragma omp error severity(warning) message("bar") at(compilation)	/* { dg-warning "'pragma omp error' encountered: bar" } */
      30      i += 8;
      31    return i;
      32  }
      33  
      34  int
      35  main ()
      36  {
      37    /* Initialize offloading early, so that any output this may produce doesn't
      38       disturb the 'dg-output' scanning below.  */
      39    #pragma omp target
      40    ;
      41  
      42    if (foo (5, 0) != 13 || foo (6, 1) != 17)
      43      abort ();
      44    #pragma omp error at (execution) severity (warning)
      45    const char *msg = "my message" + 2;
      46    #pragma omp error at (execution) severity (warning) message (msg + 1)
      47    #pragma omp target
      48    {
      49      #pragma omp error at (execution) severity (warning) message ("hello from a distance")
      50    }
      51    #pragma omp error at (execution) severity (fatal) message (msg - 2)
      52    #pragma omp error at (execution) severity (warning) message ("foobar")
      53    return 0;
      54  }
      55  
      56  /* { dg-output "libgomp: error directive encountered(\n|\r|\r\n)(\n|\r|\r\n)" } */
      57  /* { dg-output "libgomp: error directive encountered: message(\n|\r|\r\n)(\n|\r|\r\n)" } */
      58  /* { dg-output "libgomp: error directive encountered: hello from a distance(\n|\r|\r\n)(\n|\r|\r\n)" } */
      59  /* { dg-output "libgomp: fatal error: error directive encountered: my message" } */