1  #pragma omp declare target
       2  #pragma acc routine seq /* { dg-error "cannot apply '#pragma acc routine' to '\(void \)?f1\(\\(\\)\)?', which has also been marked with an OpenMP 'declare target' directive" } */
       3  void f1 (void) {}
       4  #pragma omp end declare target
       5  
       6  #pragma omp declare target
       7  void f1 (void);
       8  
       9  #pragma acc routine seq /* { dg-error "cannot apply '#pragma acc routine' to '\(void \)?f1\(\\(\\)\)?', which has also been marked with an OpenMP 'declare target' directive" } */
      10  void f1 (void);
      11  
      12  
      13  
      14  #pragma omp declare target
      15  #pragma acc routine /* { dg-error "cannot apply '#pragma acc routine' to '\(void \)?f2\(\\(\\)\)?', which has also been marked with an OpenMP 'declare target' directive" } */
      16  extern void f2 (void);
      17  #pragma omp end declare target
      18  
      19  #pragma omp declare target
      20  extern void f2 (void);
      21  #pragma omp end declare target
      22  
      23  #pragma acc routine gang /* { dg-error "cannot apply '#pragma acc routine' to '\(void \)?f2\(\\(\\)\)?', which has also been marked with an OpenMP 'declare target' directive" } */
      24  extern void f2 (void);
      25  
      26  
      27  #pragma omp declare target
      28  #pragma acc routine gang /* { dg-error "cannot apply '#pragma acc routine' to '\(void \)?f3\(\\(\\)\)?', which has also been marked with an OpenMP 'declare target' directive" } */
      29  void f3 (void);
      30  #pragma omp end declare target
      31  
      32  #pragma omp declare target
      33  void f3 (void) {}
      34  #pragma omp end declare target
      35  
      36  #pragma acc routine (f3) gang /* { dg-error "cannot apply '#pragma acc routine' to '\(void \)?f3\(\\(\\)\)?', which has also been marked with an OpenMP 'declare target' directive" } */
      37  
      38  
      39  /* Surprisingly, this diagnosis also works for '#pragma acc routine' first,
      40     followed by '#pragma omp declare target'; the latter gets applied first.  */
      41  
      42  
      43  #pragma acc routine /* { dg-error "cannot apply '#pragma acc routine' to '\(void \)?f4\(\\(\\)\)?', which has also been marked with an OpenMP 'declare target' directive" } */
      44  extern void f4 (void);
      45  
      46  #pragma omp declare target
      47  extern void f4 (void);
      48  #pragma omp end declare target
      49  
      50  
      51  #pragma acc routine gang /* { dg-error "cannot apply '#pragma acc routine' to '\(void \)?f5\(\\(\\)\)?', which has also been marked with an OpenMP 'declare target' directive" } */
      52  void f5 (void) {}
      53  
      54  #pragma omp declare target
      55  extern void f5 (void);
      56  #pragma omp end declare target