gcc/testsuite/gfortran.dg/gomp/nowait-5.f90

   1 ! Cross check that it is accepted without nowait
   2 subroutine bar()
   3 implicit none
   4 integer :: i, a(5)
   5 !$omp atomic write
   6 i = 5
   7 !$omp end atomic
   8
   9 !$omp critical
  10 !$omp end critical
  11
  12 !$omp distribute
  13 do i = 1, 5
  14 end do
  15 !$omp end distribute
  16
  17 !$omp distribute parallel do
  18 do i = 1, 5
  19 end do
  20 !$omp end distribute parallel do
  21
  22 !$omp distribute parallel do simd
  23 do i = 1, 5
  24 end do
  25 !$omp end distribute parallel do simd
  26
  27 !$omp distribute simd
  28 do i = 1, 5
  29 end do
  30 !$omp end distribute simd
  31
  32 !$omp masked
  33 !$omp end masked
  34
  35 !$omp masked taskloop
  36 do i = 1, 5
  37 end do
  38 !$omp end masked taskloop
  39
  40 !$omp masked taskloop simd
  41 do i = 1, 5
  42 end do
  43 !$omp end masked taskloop simd
  44
  45 !$omp master
  46 !$omp end master
  47
  48 !$omp master taskloop
  49 do i = 1, 5
  50 end do
  51 !$omp end master taskloop
  52
  53 !$omp master taskloop simd
  54 do i = 1, 5
  55 end do
  56 !$omp end master taskloop simd
  57
  58 !$omp ordered
  59 !$omp end ordered
  60
  61 !$omp parallel
  62 !$omp end parallel
  63
  64 !$omp parallel workshare
  65 a(:) = 5
  66 !$omp end parallel workshare
  67
  68 !$omp parallel do
  69 do i = 1, 5
  70 end do
  71 !$omp end parallel do
  72
  73 !$omp parallel do simd
  74 do i = 1, 5
  75 end do
  76 !$omp end parallel do simd
  77
  78 !$omp parallel sections
  79   !$omp section
  80   block; end block
  81 !$omp end parallel sections
  82
  83 !$omp parallel masked
  84 !$omp end parallel masked
  85
  86 !$omp parallel masked taskloop
  87 do i = 1, 5
  88 end do
  89 !$omp end parallel masked taskloop
  90
  91 !$omp parallel masked taskloop simd
  92 do i = 1, 5
  93 end do
  94 !$omp end parallel masked taskloop simd
  95
  96 !$omp parallel master
  97 !$omp end parallel master
  98
  99 !$omp parallel master taskloop
 100 do i = 1, 5
 101 end do
 102 !$omp end parallel master taskloop
 103
 104 !$omp parallel master taskloop simd
 105 do i = 1, 5
 106 end do
 107 !$omp end parallel master taskloop simd
 108
 109 !$omp simd
 110 do i = 1, 5
 111 end do
 112 !$omp end simd
 113
 114 !$omp task
 115 !$omp end task
 116
 117 !$omp taskgroup
 118 !$omp end taskgroup
 119
 120 !$omp taskloop
 121 do i = 1, 5
 122 end do
 123 !$omp end taskloop
 124
 125 !$omp taskloop simd
 126 do i = 1, 5
 127 end do
 128 !$omp end taskloop simd
 129
 130 !$omp teams
 131 !$omp end teams
 132
 133 !$omp teams distribute
 134 do i = 1, 5
 135 end do
 136 !$omp end teams distribute
 137
 138 !$omp teams distribute parallel do
 139 do i = 1, 5
 140 end do
 141 !$omp end teams distribute parallel do
 142
 143 !$omp teams distribute parallel do simd
 144 do i = 1, 5
 145 end do
 146 !$omp end teams distribute parallel do simd
 147
 148 !$omp teams distribute simd
 149 do i = 1, 5
 150 end do
 151 !$omp end teams distribute simd
 152
 153 !$omp target data map(tofrom:i)
 154 !$omp end target data
 155
 156 end