gcc/testsuite/c-c++-common/goacc/default-1.c

   1 /* { dg-do run } */
   2
   3 #include <stdlib.h>
   4
   5 int
   6 main (int argc, char **argv)
   7 {
   8   float a, b;
   9
  10   a = 2.0;
  11   b = 0.0;
  12
  13 #pragma acc parallel default (shared) /* { dg-error "expected 'none'" } */
  14   /* { dg-error "expected '\\\)'" "" { target c++ } 13 } */
  15   {
  16     b = a;
  17     a = 1.0;
  18     a = a + b;
  19   }
  20
  21 #pragma acc parallel default (none) /* { dg-error "enclosing OpenACC parallel" } */
  22   {
  23     b = a; /* { dg-error "in enclosing OpenACC parallel construct" } */
  24     a = 1.0;
  25     a = a + b;
  26   }
  27
  28 #pragma acc parallel create (b) default (none) /* { dg-error "enclosing OpenACC parallel" } */
  29   {
  30     b = a; /* { dg-error "in enclosing OpenACC parallel construct" } */
  31     a = 1.0;
  32     a = a + b;
  33   }
  34
  35 #pragma acc kernels default (none) /* { dg-error "enclosing OpenACC kernels" } */
  36   {
  37     b = a; /* { dg-error "in enclosing OpenACC kernels construct" } */
  38     a = 1.0;
  39     a = a + b;
  40   }
  41
  42 #pragma acc kernels create (b) default (none) /* { dg-error "enclosing OpenACC kernels construct" } */
  43   {
  44     b = a; /* { dg-error "in enclosing OpenACC kernels construct" } */
  45     a = 1.0;
  46     a = a + b;
  47   }
  48
  49 #pragma acc kernels copy (a) create (b) default () /* { dg-error "expected 'none'" } */
  50   {
  51     b = a;
  52     a = 1.0;
  53     a = a + b;
  54   }
  55
  56   return 0;
  57 }