1  /* { dg-do link } */
       2  
       3  int var; /* { dg-error "'var' requires a 'declare' directive for use in a 'routine' function" } */
       4  
       5  #pragma acc routine
       6  void  __attribute__((noinline, noclone))
       7  foo (void)
       8  {
       9    var++;
      10  }
      11  
      12  int
      13  main ()
      14  {
      15  #pragma acc parallel
      16    foo ();
      17  }