gcc/testsuite/c-c++-common/gomp/ordered-5.c

   1 /* { dg-do compile } */
   2 /* { dg-options "-fopenmp" } */
   3
   4 void
   5 foo (void)
   6 {
   7   int i;
   8   #pragma omp for ordered                       /* { dg-error "'ordered' clause used with generated loops" } */
   9   #pragma omp tile sizes (2)
  10   for (i = 0; i < 64; i++)
  11     {
  12       #pragma omp ordered
  13       ;
  14     }
  15   #pragma omp for ordered                       /* { dg-error "'ordered' clause used with generated loops" } */
  16   #pragma omp tile sizes (2)
  17   for (i = 0; i < 64; i++)
  18     {
  19       #pragma omp ordered threads
  20       ;
  21     }
  22   #pragma omp for simd ordered                  /* { dg-error "'ordered' clause used with generated loops" "" { target c } } */
  23   #pragma omp tile sizes (2)                    /* { dg-error "'ordered' clause used with generated loops" "" { target c++ } } */
  24   for (i = 0; i < 64; i++)
  25     {
  26       #pragma omp ordered threads, simd
  27       ;
  28     }
  29   #pragma omp for simd ordered(1)               /* { dg-error "'ordered' clause used with generated loops" "" { target c } } */
  30   #pragma omp tile sizes (2)                    /* { dg-error "'ordered' clause used with generated loops" "" { target c++ } } */
  31   for (i = 0; i < 64; i++)
  32     {
  33       #pragma omp ordered depend(sink: i - 1)
  34       #pragma omp ordered depend(source)
  35     }
  36   #pragma omp for simd ordered(1)               /* { dg-error "'ordered' clause used with generated loops" "" { target c } } */
  37   #pragma omp tile sizes (2)                    /* { dg-error "'ordered' clause used with generated loops" "" { target c++ } } */
  38   for (i = 0; i < 64; i++)
  39     {
  40       #pragma omp ordered doacross(sink: i - 1)
  41       #pragma omp ordered doacross(source:omp_cur_iteration)
  42     }
  43   #pragma omp parallel for ordered              /* { dg-error "'ordered' clause used with generated loops" "" { target c } } */
  44   #pragma omp tile sizes (2)                    /* { dg-error "'ordered' clause used with generated loops" "" { target c++ } } */
  45   for (i = 0; i < 64; i++)
  46     {
  47       #pragma omp ordered depend(sink: i - 1)
  48       #pragma omp ordered depend(source)
  49     }
  50   #pragma omp parallel for ordered              /* { dg-error "'ordered' clause used with generated loops" "" { target c } } */
  51   #pragma omp tile sizes (2)                    /* { dg-error "'ordered' clause used with generated loops" "" { target c++ } } */
  52   for (i = 0; i < 64; i++)
  53     {
  54       #pragma omp ordered doacross(sink: i - 1)
  55       #pragma omp ordered doacross(source:)
  56     }
  57   #pragma omp for ordered(1)                    /* { dg-error "'ordered' clause used with generated loops" } */
  58   #pragma omp tile sizes (2)
  59   for (i = 0; i < 64; i++)
  60     {
  61       #pragma omp ordered depend(sink: i - 1)
  62       #pragma omp ordered depend(source)
  63     }
  64   #pragma omp for ordered(1)                    /* { dg-error "'ordered' clause used with generated loops" } */
  65   #pragma omp tile sizes (2)
  66   for (i = 0; i < 64; i++)
  67     {
  68       #pragma omp ordered doacross(sink: i - 1)
  69       #pragma omp ordered doacross(source:omp_cur_iteration)
  70     }
  71 }
  72
  73 void
  74 bar (void)
  75 {
  76   int i;
  77   #pragma omp for ordered                       /* { dg-error "'ordered' clause used with generated loops" } */
  78   #pragma omp unroll partial (2)
  79   for (i = 0; i < 64; i++)
  80     {
  81       #pragma omp ordered
  82       ;
  83     }
  84   #pragma omp for ordered                       /* { dg-error "'ordered' clause used with generated loops" } */
  85   #pragma omp unroll partial (2)
  86   for (i = 0; i < 64; i++)
  87     {
  88       #pragma omp ordered threads
  89       ;
  90     }
  91   #pragma omp for simd ordered                  /* { dg-error "'ordered' clause used with generated loops" "" { target c } } */
  92   #pragma omp unroll partial (2)                /* { dg-error "'ordered' clause used with generated loops" "" { target c++ } } */
  93   for (i = 0; i < 64; i++)
  94     {
  95       #pragma omp ordered threads, simd
  96       ;
  97     }
  98   #pragma omp for simd ordered(1)               /* { dg-error "'ordered' clause used with generated loops" "" { target c } } */
  99   #pragma omp unroll partial (2)                /* { dg-error "'ordered' clause used with generated loops" "" { target c++ } } */
 100   for (i = 0; i < 64; i++)
 101     {
 102       #pragma omp ordered depend(sink: i - 1)
 103       #pragma omp ordered depend(source)
 104     }
 105   #pragma omp for simd ordered(1)               /* { dg-error "'ordered' clause used with generated loops" "" { target c } } */
 106   #pragma omp unroll partial (2)                /* { dg-error "'ordered' clause used with generated loops" "" { target c++ } } */
 107   for (i = 0; i < 64; i++)
 108     {
 109       #pragma omp ordered doacross(sink: i - 1)
 110       #pragma omp ordered doacross(source:omp_cur_iteration)
 111     }
 112   #pragma omp parallel for ordered              /* { dg-error "'ordered' clause used with generated loops" "" { target c } } */
 113   #pragma omp unroll partial (2)                /* { dg-error "'ordered' clause used with generated loops" "" { target c++ } } */
 114   for (i = 0; i < 64; i++)
 115     {
 116       #pragma omp ordered depend(sink: i - 1)
 117       #pragma omp ordered depend(source)
 118     }
 119   #pragma omp parallel for ordered              /* { dg-error "'ordered' clause used with generated loops" "" { target c } } */
 120   #pragma omp unroll partial (2)                /* { dg-error "'ordered' clause used with generated loops" "" { target c++ } } */
 121   for (i = 0; i < 64; i++)
 122     {
 123       #pragma omp ordered doacross(sink: i - 1)
 124       #pragma omp ordered doacross(source:)
 125     }
 126   #pragma omp for ordered(1)                    /* { dg-error "'ordered' clause used with generated loops" } */
 127   #pragma omp unroll partial (2)
 128   for (i = 0; i < 64; i++)
 129     {
 130       #pragma omp ordered depend(sink: i - 1)
 131       #pragma omp ordered depend(source)
 132     }
 133   #pragma omp for ordered(1)                    /* { dg-error "'ordered' clause used with generated loops" } */
 134   #pragma omp unroll partial (2)
 135   for (i = 0; i < 64; i++)
 136     {
 137       #pragma omp ordered doacross(sink: i - 1)
 138       #pragma omp ordered doacross(source:omp_cur_iteration)
 139     }
 140 }