flang/test/Semantics/omp-device-constructs.f90

   1 ! RUN: %S/test_errors.sh %s %t %flang -fopenmp
   2 ! REQUIRES: shell
   3 ! Check OpenMP clause validity for the following directives:
   4 !     2.10 Device constructs
   5 program main
   6
   7   real(8) :: arrayA(256), arrayB(256)
   8   integer :: N
   9
  10   arrayA = 1.414
  11   arrayB = 3.14
  12   N = 256
  13
  14   !$omp target map(arrayA)
  15   do i = 1, N
  16      a = 3.14
  17   enddo
  18   !$omp end target
  19
  20   !$omp target device(0)
  21   do i = 1, N
  22      a = 3.14
  23   enddo
  24   !$omp end target
  25
  26   !ERROR: At most one DEVICE clause can appear on the TARGET directive
  27   !$omp target device(0) device(1)
  28   do i = 1, N
  29      a = 3.14
  30   enddo
  31   !$omp end target
  32
  33   !ERROR: SCHEDULE clause is not allowed on the TARGET directive
  34   !$omp target schedule(static)
  35   do i = 1, N
  36      a = 3.14
  37   enddo
  38   !$omp end target
  39
  40   !$omp target defaultmap(tofrom:scalar)
  41   do i = 1, N
  42      a = 3.14
  43   enddo
  44   !$omp end target
  45
  46   !ERROR: The argument TOFROM:SCALAR must be specified on the DEFAULTMAP clause
  47   !$omp target defaultmap(tofrom)
  48   do i = 1, N
  49      a = 3.14
  50   enddo
  51   !$omp end target
  52
  53   !ERROR: At most one DEFAULTMAP clause can appear on the TARGET directive
  54   !$omp target defaultmap(tofrom:scalar) defaultmap(tofrom:scalar)
  55   do i = 1, N
  56      a = 3.14
  57   enddo
  58   !$omp end target
  59
  60   !$omp teams num_teams(3) thread_limit(10) default(shared) private(i) shared(a)
  61   do i = 1, N
  62      a = 3.14
  63   enddo
  64   !$omp end teams
  65
  66   !ERROR: At most one NUM_TEAMS clause can appear on the TEAMS directive
  67   !$omp teams num_teams(2) num_teams(3)
  68   do i = 1, N
  69      a = 3.14
  70   enddo
  71   !$omp end teams
  72
  73   !ERROR: The parameter of the NUM_TEAMS clause must be a positive integer expression
  74   !$omp teams num_teams(-1)
  75   do i = 1, N
  76      a = 3.14
  77   enddo
  78   !$omp end teams
  79
  80   !ERROR: At most one THREAD_LIMIT clause can appear on the TEAMS directive
  81   !$omp teams thread_limit(2) thread_limit(3)
  82   do i = 1, N
  83      a = 3.14
  84   enddo
  85   !$omp end teams
  86
  87   !ERROR: The parameter of the THREAD_LIMIT clause must be a positive integer expression
  88   !$omp teams thread_limit(-1)
  89   do i = 1, N
  90      a = 3.14
  91   enddo
  92   !$omp end teams
  93
  94   !ERROR: At most one DEFAULT clause can appear on the TEAMS directive
  95   !$omp teams default(shared) default(private)
  96   do i = 1, N
  97      a = 3.14
  98   enddo
  99   !$omp end teams
 100
 101   !$omp target teams num_teams(2) defaultmap(tofrom:scalar)
 102   do i = 1, N
 103       a = 3.14
 104   enddo
 105   !$omp end target teams
 106
 107   !$omp target map(tofrom:a)
 108   do i = 1, N
 109      a = 3.14
 110   enddo
 111   !$omp end target
 112
 113   !ERROR: Only the TO, FROM, TOFROM, ALLOC map types are permitted for MAP clauses on the TARGET directive
 114   !$omp target map(delete:a)
 115   do i = 1, N
 116      a = 3.14
 117   enddo
 118   !$omp end target
 119
 120   !$omp target data device(0) map(to:a)
 121   do i = 1, N
 122     a = 3.14
 123   enddo
 124   !$omp end target data
 125
 126   !ERROR: At least one of MAP clause must appear on the TARGET DATA directive
 127   !$omp target data device(0)
 128   do i = 1, N
 129      a = 3.14
 130   enddo
 131   !$omp end target data
 132
 133   !ERROR: At most one IF clause can appear on the TARGET ENTER DATA directive
 134   !$omp target enter data map(to:a) if(.true.) if(.false.)
 135
 136   !ERROR: Only the TO, ALLOC map types are permitted for MAP clauses on the TARGET ENTER DATA directive
 137   !$omp target enter data map(from:a)
 138
 139   !$omp target exit data map(delete:a)
 140
 141   !ERROR: At most one DEVICE clause can appear on the TARGET EXIT DATA directive
 142   !$omp target exit data map(from:a) device(0) device(1)
 143
 144   !ERROR: Only the FROM, RELEASE, DELETE map types are permitted for MAP clauses on the TARGET EXIT DATA directive
 145   !$omp target exit data map(to:a)
 146
 147   !$omp target
 148   !ERROR: `DISTRIBUTE` region has to be strictly nested inside `TEAMS` region.
 149   !$omp distribute
 150   do i = 1, N
 151      a = 3.14
 152   enddo
 153   !$omp end distribute
 154   !$omp end target
 155
 156   !$omp target
 157   !$omp teams
 158   !$omp distribute
 159   do i = 1, N
 160      a = 3.14
 161   enddo
 162   !$omp end distribute
 163   !$omp end teams
 164   !$omp end target
 165
 166   !$omp target
 167   !ERROR: `DISTRIBUTE` region has to be strictly nested inside `TEAMS` region.
 168   !ERROR: At most one COLLAPSE clause can appear on the DISTRIBUTE directive
 169   !$omp distribute collapse(2) collapse(3)
 170   do i = 1, N
 171      do j = 1, N
 172         do k = 1, N
 173            a = 3.14
 174         enddo
 175      enddo
 176   enddo
 177   !$omp end distribute
 178   !$omp end target
 179
 180   !$omp target
 181   !$omp teams
 182   !ERROR: At most one COLLAPSE clause can appear on the DISTRIBUTE directive
 183   !$omp distribute collapse(2) collapse(3)
 184   do i = 1, N
 185      do j = 1, N
 186         do k = 1, N
 187            a = 3.14
 188         enddo
 189      enddo
 190   enddo
 191   !$omp end distribute
 192   !$omp end teams
 193   !$omp end target
 194
 195   !$omp target
 196   !ERROR: `DISTRIBUTE` region has to be strictly nested inside `TEAMS` region.
 197   !$omp distribute dist_schedule(static, 2)
 198   do i = 1, N
 199      a = 3.14
 200   enddo
 201   !$omp end distribute
 202   !$omp end target
 203
 204   !$omp target
 205   !$omp teams
 206   !$omp distribute dist_schedule(static, 2)
 207   do i = 1, N
 208      a = 3.14
 209   enddo
 210   !$omp end distribute
 211   !$omp end teams
 212   !$omp end target
 213
 214   !$omp target
 215   !ERROR: `DISTRIBUTE` region has to be strictly nested inside `TEAMS` region.
 216   !ERROR: At most one DIST_SCHEDULE clause can appear on the DISTRIBUTE directive
 217   !$omp distribute dist_schedule(static, 2) dist_schedule(static, 3)
 218   do i = 1, N
 219      a = 3.14
 220   enddo
 221   !$omp end distribute
 222   !$omp end target
 223
 224   !$omp target
 225   !$omp teams
 226   !ERROR: At most one DIST_SCHEDULE clause can appear on the DISTRIBUTE directive
 227   !$omp distribute dist_schedule(static, 2) dist_schedule(static, 3)
 228   do i = 1, N
 229      a = 3.14
 230   enddo
 231   !$omp end distribute
 232   !$omp end teams
 233   !$omp end target
 234
 235 end program main