gcc/testsuite/gfortran.dg/gomp/pr99928-1.f90

   1 ! PR middle-end/99928
   2 ! { dg-do compile }
   3 ! { dg-options "-fopenmp -fdump-tree-gimple" }
   4
   5 module m
   6   implicit none
   7   integer :: f00, f01, f02, f03, f04, f05, f06, f07, f08, f09
   8   integer :: f12, f13, f14, f15, f16, f17, f18, f19
   9   integer :: f20, f21, f22, f23, f24, f25, f26, f27, f28, f29
  10
  11 contains
  12
  13 subroutine foo ()
  14   integer :: i
  15   ! { dg-final { scan-tree-dump "omp distribute\[^\n\r]*firstprivate\\(f00\\)" "gimple" } }
  16   ! { dg-final { scan-tree-dump "omp parallel\[^\n\r]*firstprivate\\(f00\\)" "gimple" } } ! FIXME: This should be on for instead.
  17   ! { dg-final { scan-tree-dump-not "omp for\[^\n\r]*firstprivate\\(f00\\)" "gimple" } } ! FIXME.
  18   !$omp distribute parallel do firstprivate (f00) default(none)
  19   do i = 1, 64
  20     f00 = f00 + 1
  21   end do
  22   ! { dg-final { scan-tree-dump "omp distribute\[^\n\r]*firstprivate\\(f01\\)" "gimple" } }
  23   ! { dg-final { scan-tree-dump "omp parallel\[^\n\r]*firstprivate\\(f01\\)" "gimple" } } ! FIXME: This should be on for instead.
  24   ! { dg-final { scan-tree-dump-not "omp for\[^\n\r]*firstprivate\\(f01\\)" "gimple" } } ! FIXME.
  25   ! { dg-final { scan-tree-dump-not "omp simd\[^\n\r]*firstprivate\\(f01\\)" "gimple" } }
  26   !$omp distribute parallel do simd firstprivate (f01) default(none)
  27   do i = 1, 64
  28     f01 = f01 + 1
  29   end do
  30   ! { dg-final { scan-tree-dump "omp distribute\[^\n\r]*firstprivate\\(f02\\)" "gimple" } }
  31   ! { dg-final { scan-tree-dump-not "omp simd\[^\n\r]*firstprivate\\(f02\\)" "gimple" } }
  32   !$omp distribute simd firstprivate (f02)
  33   do i = 1, 64
  34     f02 = f02 + 1
  35   end do
  36 end
  37
  38 subroutine bar ()
  39   integer :: f10, f11
  40   integer :: i
  41   f10 = 0; f11 = 0
  42   ! { dg-final { scan-tree-dump "omp for\[^\n\r]*firstprivate\\(f03\\)" "gimple" } }
  43   ! { dg-final { scan-tree-dump-not "omp simd\[^\n\r]*firstprivate\\(f03\\)" "gimple" } }
  44   !$omp do simd firstprivate (f03)
  45   do i = 1, 64
  46     f03 = f03 + 1
  47   end do
  48   ! { dg-final { scan-tree-dump-not "omp master\[^\n\r]*firstprivate\\(f04\\)" "gimple" } }
  49   ! { dg-final { scan-tree-dump "omp taskloop\[^\n\r]*firstprivate\\(f04\\)" "gimple" } }
  50   !$omp master taskloop firstprivate (f04) default(none)
  51   do i = 1, 64
  52     f04 = f04 + 1
  53   end do
  54   ! { dg-final { scan-tree-dump-not "omp master\[^\n\r]*firstprivate\\(f05\\)" "gimple" } }
  55   ! { dg-final { scan-tree-dump "omp taskloop\[^\n\r]*firstprivate\\(f05\\)" "gimple" } }
  56   ! { dg-final { scan-tree-dump-not "omp simd\[^\n\r]*firstprivate\\(f05\\)" "gimple" } }
  57   !$omp master taskloop simd firstprivate (f05) default(none)
  58   do i = 1, 64
  59     f05 = f05 + 1
  60   end do
  61   ! { dg-final { scan-tree-dump "omp parallel\[^\n\r]*firstprivate\\(f06\\)" "gimple" } } ! FIXME: This should be on for instead.
  62   ! { dg-final { scan-tree-dump-not "omp for\[^\n\r]*firstprivate\\(f06\\)" "gimple" } } ! FIXME.
  63   !$omp parallel do firstprivate (f06) default(none)
  64   do i = 1, 64
  65     f06 = f06 + 1
  66   end do
  67   ! { dg-final { scan-tree-dump "omp parallel\[^\n\r]*firstprivate\\(f07\\)" "gimple" } } ! FIXME: This should be on for instead.
  68   ! { dg-final { scan-tree-dump-not "omp for\[^\n\r]*firstprivate\\(f07\\)" "gimple" } } ! FIXME.
  69   ! { dg-final { scan-tree-dump-not "omp simd\[^\n\r]*firstprivate\\(f07\\)" "gimple" } }
  70   !$omp parallel do simd firstprivate (f07) default(none)
  71   do i = 1, 64
  72     f07 = f07 + 1
  73   end do
  74   ! { dg-final { scan-tree-dump "omp parallel\[^\n\r]*firstprivate\\(f08\\)" "gimple" } }
  75   ! { dg-final { scan-tree-dump-not "omp for\[^\n\r]*firstprivate\\(f08\\)" "gimple" } }
  76   ! { dg-final { scan-tree-dump-not "omp simd\[^\n\r]*firstprivate\\(f08\\)" "gimple" } }
  77   !$omp parallel loop firstprivate (f08) default(none)
  78   do i = 1, 64
  79     f08 = f08 + 1
  80   end do
  81   ! { dg-final { scan-tree-dump "omp parallel\[^\n\r]*firstprivate\\(f09\\)" "gimple" } }
  82   ! { dg-final { scan-tree-dump-not "omp master\[^\n\r]*firstprivate\\(f09\\)" "gimple" } }
  83   !$omp parallel master firstprivate (f09) default(none)
  84   f09 = f09 + 1
  85   !$omp end parallel master
  86   ! { dg-final { scan-tree-dump "omp parallel\[^\n\r]*shared\\(f10\\)" "gimple" } }
  87   ! { dg-final { scan-tree-dump-not "omp master\[^\n\r]*firstprivate\\(f10\\)" "gimple" } }
  88   ! { dg-final { scan-tree-dump "omp taskloop\[^\n\r]*firstprivate\\(f10\\)" "gimple" } }
  89   !$omp parallel master taskloop firstprivate (f10) default(none)
  90   do i = 1, 64
  91     f10 = f10 + 1
  92   end do
  93   ! { dg-final { scan-tree-dump "omp parallel\[^\n\r]*shared\\(f11\\)" "gimple" } }
  94   ! { dg-final { scan-tree-dump-not "omp master\[^\n\r]*firstprivate\\(f11\\)" "gimple" } }
  95   ! { dg-final { scan-tree-dump "omp taskloop\[^\n\r]*firstprivate\\(f11\\)" "gimple" } }
  96   ! { dg-final { scan-tree-dump-not "omp simd\[^\n\r]*firstprivate\\(f11\\)" "gimple" } }
  97   !$omp parallel master taskloop simd firstprivate (f11) default(none)
  98   do i = 1, 64
  99     f11 = f11 + 1
 100   end do
 101   ! { dg-final { scan-tree-dump "omp parallel\[^\n\r]*firstprivate\\(f12\\)" "gimple" } }
 102   ! { dg-final { scan-tree-dump-not "omp sections\[^\n\r]*firstprivate\\(f12\\)" "gimple" } }
 103   ! { dg-final { scan-tree-dump-not "omp section \[^\n\r]*firstprivate\\(f12\\)" "gimple" } }
 104   !$omp parallel sections firstprivate (f12) default(none)
 105     f12 = f12 + 1
 106     !$omp section
 107     f12 = f12 + 1
 108   !$omp end parallel sections
 109   ! { dg-final { scan-tree-dump "omp target\[^\n\r]*firstprivate\\(f13\\)" "gimple" } }
 110   ! { dg-final { scan-tree-dump "omp parallel\[^\n\r]*firstprivate\\(f13\\)" "gimple" } }
 111   !$omp target parallel firstprivate (f13) default(none) defaultmap(none)
 112   f13 = f13 + 1
 113   !$omp end target parallel
 114   ! { dg-final { scan-tree-dump "omp target\[^\n\r]*firstprivate\\(f14\\)" "gimple" } }
 115   ! { dg-final { scan-tree-dump "omp parallel\[^\n\r]*firstprivate\\(f14\\)" "gimple" } } ! FIXME: This should be on for instead.
 116   ! { dg-final { scan-tree-dump-not "omp for\[^\n\r]*firstprivate\\(f14\\)" "gimple" } } ! FIXME.
 117   !$omp target parallel do firstprivate (f14) default(none) defaultmap(none)
 118   do i = 1, 64
 119     f14 = f14 + 1
 120   end do
 121   ! { dg-final { scan-tree-dump "omp target\[^\n\r]*firstprivate\\(f15\\)" "gimple" } }
 122   ! { dg-final { scan-tree-dump "omp parallel\[^\n\r]*firstprivate\\(f15\\)" "gimple" } } ! FIXME: This should be on for instead.
 123   ! { dg-final { scan-tree-dump-not "omp for\[^\n\r]*firstprivate\\(f15\\)" "gimple" } } ! FIXME.
 124   ! { dg-final { scan-tree-dump-not "omp simd\[^\n\r]*firstprivate\\(f15\\)" "gimple" } }
 125   !$omp target parallel do simd firstprivate (f15) default(none) defaultmap(none)
 126   do i = 1, 64
 127     f15 = f15 + 1
 128   end do
 129   ! { dg-final { scan-tree-dump "omp target\[^\n\r]*firstprivate\\(f16\\)" "gimple" } }
 130   ! { dg-final { scan-tree-dump "omp parallel\[^\n\r]*firstprivate\\(f16\\)" "gimple" } }
 131   ! { dg-final { scan-tree-dump-not "omp for\[^\n\r]*firstprivate\\(f16\\)" "gimple" } }
 132   ! { dg-final { scan-tree-dump-not "omp simd\[^\n\r]*firstprivate\\(f16\\)" "gimple" } }
 133   !$omp target parallel loop firstprivate (f16) default(none) defaultmap(none)
 134   do i = 1, 64
 135     f16 = f16 + 1
 136   end do
 137   ! { dg-final { scan-tree-dump "omp target\[^\n\r]*firstprivate\\(f17\\)" "gimple" } }
 138   ! { dg-final { scan-tree-dump "omp teams\[^\n\r]*firstprivate\\(f17\\)" "gimple" } }
 139   !$omp target teams firstprivate (f17) default(none) defaultmap(none)
 140   f17 = f17 + 1
 141   !$omp end target teams
 142   ! { dg-final { scan-tree-dump "omp target\[^\n\r]*firstprivate\\(f18\\)" "gimple" } }
 143   ! { dg-final { scan-tree-dump "omp teams\[^\n\r]*firstprivate\\(f18\\)" "gimple" } } ! FIXME: This should be on distribute instead.
 144   ! { dg-final { scan-tree-dump-not "omp distribute\[^\n\r]*firstprivate\\(f18\\)" "gimple" } } ! FIXME.
 145   !$omp target teams distribute firstprivate (f18) default(none) defaultmap(none)
 146   do i = 1, 64
 147     f18 = f18 + 1
 148   end do
 149   ! { dg-final { scan-tree-dump "omp target\[^\n\r]*firstprivate\\(f19\\)" "gimple" } }
 150   ! { dg-final { scan-tree-dump "omp teams\[^\n\r]*firstprivate\\(f19\\)" "gimple" } } ! FIXME: This should be on distribute instead.
 151   ! { dg-final { scan-tree-dump-not "omp distribute\[^\n\r]*firstprivate\\(f19\\)" "gimple" } } ! FIXME.
 152   ! { dg-final { scan-tree-dump "omp parallel\[^\n\r]*firstprivate\\(f19\\)" "gimple" } } ! FIXME: This should be on for instead.
 153   ! { dg-final { scan-tree-dump-not "omp for\[^\n\r]*firstprivate\\(f19\\)" "gimple" } } ! FIXME.
 154   !$omp target teams distribute parallel do firstprivate (f19) default(none) defaultmap(none)
 155   do i = 1, 64
 156     f19 = f19 + 1
 157   end do
 158   ! { dg-final { scan-tree-dump "omp target\[^\n\r]*firstprivate\\(f20\\)" "gimple" } }
 159   ! { dg-final { scan-tree-dump "omp teams\[^\n\r]*firstprivate\\(f20\\)" "gimple" } } ! FIXME: This should be on for instead.
 160   ! { dg-final { scan-tree-dump-not "omp distribute\[^\n\r]*firstprivate\\(f20\\)" "gimple" } } ! FIXME.
 161   ! { dg-final { scan-tree-dump "omp parallel\[^\n\r]*firstprivate\\(f20\\)" "gimple" } } ! FIXME: This should be on for instead.
 162   ! { dg-final { scan-tree-dump-not "omp for\[^\n\r]*firstprivate\\(f20\\)" "gimple" } } ! FIXME.
 163   ! { dg-final { scan-tree-dump-not "omp simd\[^\n\r]*firstprivate\\(f20\\)" "gimple" } }
 164   !$omp target teams distribute parallel do simd firstprivate (f20) default(none) defaultmap(none)
 165   do i = 1, 64
 166     f20 = f20 + 1
 167   end do
 168   ! { dg-final { scan-tree-dump "omp target\[^\n\r]*firstprivate\\(f21\\)" "gimple" } }
 169   ! { dg-final { scan-tree-dump "omp teams\[^\n\r]*firstprivate\\(f21\\)" "gimple" } } ! FIXME: This should be on for instead.
 170   ! { dg-final { scan-tree-dump-not "omp distribute\[^\n\r]*firstprivate\\(f21\\)" "gimple" } } ! FIXME.
 171   ! { dg-final { scan-tree-dump-not "omp simd\[^\n\r]*firstprivate\\(f21\\)" "gimple" } }
 172   !$omp target teams distribute simd firstprivate (f21) default(none) defaultmap(none)
 173   do i = 1, 64
 174     f21 = f21 + 1
 175   end do
 176   ! { dg-final { scan-tree-dump "omp target\[^\n\r]*firstprivate\\(f22\\)" "gimple" } }
 177   ! { dg-final { scan-tree-dump "omp teams\[^\n\r]*firstprivate\\(f22\\)" "gimple" } }
 178   ! { dg-final { scan-tree-dump-not "omp distribute\[^\n\r]*firstprivate\\(f22\\)" "gimple" } }
 179   ! { dg-final { scan-tree-dump "omp parallel\[^\n\r]*shared\\(f22\\)" "gimple" } } ! NOTE: This is an implementation detail.
 180   ! { dg-final { scan-tree-dump-not "omp for\[^\n\r]*firstprivate\\(f22\\)" "gimple" } }
 181   ! { dg-final { scan-tree-dump-not "omp simd\[^\n\r]*firstprivate\\(f22\\)" "gimple" } }
 182   !$omp target teams loop firstprivate (f22) default(none) defaultmap(none)
 183   do i = 1, 64
 184     f22 = f22 + 1
 185   end do
 186   ! { dg-final { scan-tree-dump "omp target\[^\n\r]*firstprivate\\(f23\\)" "gimple" } }
 187   ! { dg-final { scan-tree-dump-not "omp simd\[^\n\r]*firstprivate\\(f23\\)" "gimple" } }
 188   !$omp target simd firstprivate (f23) defaultmap(none)
 189   do i = 1, 64
 190     f23 = f23 + 1
 191   end do
 192   !$omp end target simd
 193   ! { dg-final { scan-tree-dump "omp taskloop\[^\n\r]*firstprivate\\(f24\\)" "gimple" } }
 194   ! { dg-final { scan-tree-dump-not "omp simd\[^\n\r]*firstprivate\\(f24\\)" "gimple" } }
 195   !$omp taskloop simd firstprivate (f24) default(none)
 196   do i = 1, 64
 197     f24 = f24 + 1
 198   end do
 199   ! { dg-final { scan-tree-dump "omp teams\[^\n\r]*firstprivate\\(f25\\)" "gimple" } } ! FIXME: This should be on distribute instead.
 200   ! { dg-final { scan-tree-dump-not "omp distribute\[^\n\r]*firstprivate\\(f25\\)" "gimple" } } ! FIXME.
 201   !$omp teams distribute firstprivate (f25) default(none)
 202   do i = 1, 64
 203     f25 = f25 + 1
 204   end do
 205   ! { dg-final { scan-tree-dump "omp teams\[^\n\r]*firstprivate\\(f26\\)" "gimple" } } ! FIXME: This should be on distribute instead.
 206   ! { dg-final { scan-tree-dump-not "omp distribute\[^\n\r]*firstprivate\\(f26\\)" "gimple" } } ! FIXME.
 207   ! { dg-final { scan-tree-dump "omp parallel\[^\n\r]*firstprivate\\(f26\\)" "gimple" } } ! FIXME: This should be on for instead.
 208   ! { dg-final { scan-tree-dump-not "omp for\[^\n\r]*firstprivate\\(f26\\)" "gimple" } } ! FIXME.
 209   !$omp teams distribute parallel do firstprivate (f26) default(none)
 210   do i = 1, 64
 211     f26 = f26 + 1
 212   end do
 213   ! { dg-final { scan-tree-dump "omp teams\[^\n\r]*firstprivate\\(f27\\)" "gimple" } } ! FIXME: This should be on for instead.
 214   ! { dg-final { scan-tree-dump-not "omp distribute\[^\n\r]*firstprivate\\(f27\\)" "gimple" } } ! FIXME.
 215   ! { dg-final { scan-tree-dump "omp parallel\[^\n\r]*firstprivate\\(f27\\)" "gimple" } } ! FIXME: This should be on for instead.
 216   ! { dg-final { scan-tree-dump-not "omp for\[^\n\r]*firstprivate\\(f27\\)" "gimple" } } ! FIXME.
 217   ! { dg-final { scan-tree-dump-not "omp simd\[^\n\r]*firstprivate\\(f27\\)" "gimple" } }
 218   !$omp teams distribute parallel do simd firstprivate (f27) default(none)
 219   do i = 1, 64
 220     f27 = f27 + 1
 221   end do
 222   ! { dg-final { scan-tree-dump "omp teams\[^\n\r]*firstprivate\\(f28\\)" "gimple" } } ! FIXME: This should be on for instead.
 223   ! { dg-final { scan-tree-dump-not "omp distribute\[^\n\r]*firstprivate\\(f28\\)" "gimple" } } ! FIXME.
 224   ! { dg-final { scan-tree-dump-not "omp simd\[^\n\r]*firstprivate\\(f28\\)" "gimple" } }
 225   !$omp teams distribute simd firstprivate (f28) default(none)
 226   do i = 1, 64
 227     f28 = f28 + 1
 228   end do
 229   ! { dg-final { scan-tree-dump "omp teams\[^\n\r]*firstprivate\\(f29\\)" "gimple" } }
 230   ! { dg-final { scan-tree-dump-not "omp distribute\[^\n\r]*firstprivate\\(f29\\)" "gimple" } }
 231   ! { dg-final { scan-tree-dump "omp parallel\[^\n\r]*shared\\(f29\\)" "gimple" } } ! NOTE: This is an implementation detail.
 232   ! { dg-final { scan-tree-dump-not "omp for\[^\n\r]*firstprivate\\(f29\\)" "gimple" } }
 233   ! { dg-final { scan-tree-dump-not "omp simd\[^\n\r]*firstprivate\\(f29\\)" "gimple" } }
 234   !$omp teams loop firstprivate (f29) default(none)
 235   do i = 1, 64
 236     f29 = f29 + 1
 237   end do
 238 end
 239 end module m