flang/test/Lower/OpenACC/acc-parallel.f90

   1 ! This test checks lowering of OpenACC parallel directive.
   2
   3 ! RUN: bbc -fopenacc -emit-hlfir %s -o - | FileCheck %s
   4
   5 ! CHECK-LABEL: acc.firstprivate.recipe @firstprivatization_section_ext10xext10_ref_10x10xf32 : !fir.ref<!fir.array<10x10xf32>> init {
   6 ! CHECK: ^bb0(%{{.*}}: !fir.ref<!fir.array<10x10xf32>>):
   7 ! CHECK:   %[[SHAPE:.*]] = fir.shape %{{.*}}, %{{.*}} : (index, index) -> !fir.shape<2>
   8 ! CHECK:   %[[ALLOCA:.*]] = fir.alloca !fir.array<10x10xf32>
   9 ! CHECK:   %[[DECLARE:.*]]:2 = hlfir.declare %[[ALLOCA]](%[[SHAPE]]) {uniq_name = "acc.private.init"} : (!fir.ref<!fir.array<10x10xf32>>, !fir.shape<2>) -> (!fir.ref<!fir.array<10x10xf32>>, !fir.ref<!fir.array<10x10xf32>>)
  10 ! CHECK:   acc.yield %[[DECLARE]]#0 : !fir.ref<!fir.array<10x10xf32>>
  11 ! CHECK: } copy {
  12 ! CHECK: ^bb0(%arg0: !fir.ref<!fir.array<10x10xf32>>, %arg1: !fir.ref<!fir.array<10x10xf32>>):
  13 ! CHECK:   acc.terminator
  14 ! CHECK: }
  15
  16 ! CHECK-LABEL: acc.private.recipe @privatization_ref_10x10xf32 : !fir.ref<!fir.array<10x10xf32>> init {
  17 ! CHECK: ^bb0(%{{.*}}: !fir.ref<!fir.array<10x10xf32>>):
  18 ! CHECK:   %[[SHAPE:.*]] = fir.shape %{{.*}}, %{{.*}} : (index, index) -> !fir.shape<2>
  19 ! CHECK:   %[[DECLARE:.*]]:2 = hlfir.declare %[[ALLOCA]](%[[SHAPE]]) {uniq_name = "acc.private.init"} : (!fir.ref<!fir.array<10x10xf32>>, !fir.shape<2>) -> (!fir.ref<!fir.array<10x10xf32>>, !fir.ref<!fir.array<10x10xf32>>)
  20 ! CHECK:   acc.yield %[[DECLARE]]#0 : !fir.ref<!fir.array<10x10xf32>>
  21 ! CHECK: }
  22
  23 ! CHECK-LABEL: func.func @_QPacc_parallel()
  24
  25 subroutine acc_parallel
  26   integer :: i, j
  27
  28   integer :: async = 1
  29   integer :: wait1 = 1
  30   integer :: wait2 = 2
  31   integer :: numGangs = 1
  32   integer :: numWorkers = 10
  33   integer :: vectorLength = 128
  34   logical :: ifCondition = .TRUE.
  35   real, dimension(10, 10) :: a, b, c
  36   real, pointer :: d, e
  37   integer :: reduction_i
  38   real :: reduction_r
  39
  40 ! CHECK: %[[A:.*]] = fir.alloca !fir.array<10x10xf32> {{{.*}}uniq_name = "{{.*}}Ea"}
  41 ! CHECK: %[[DECLA:.*]]:2 = hlfir.declare %[[A]]
  42 ! CHECK: %[[B:.*]] = fir.alloca !fir.array<10x10xf32> {{{.*}}uniq_name = "{{.*}}Eb"}
  43 ! CHECK: %[[DECLB:.*]]:2 = hlfir.declare %[[B]]
  44 ! CHECK: %[[C:.*]] = fir.alloca !fir.array<10x10xf32> {{{.*}}uniq_name = "{{.*}}Ec"}
  45 ! CHECK: %[[DECLC:.*]]:2 = hlfir.declare %[[C]]
  46 ! CHECK: %[[D:.*]] = fir.alloca !fir.box<!fir.ptr<f32>> {bindc_name = "d", uniq_name = "{{.*}}Ed"}
  47 ! CHECK: %[[DECLD:.*]]:2 = hlfir.declare %[[D]]
  48 ! CHECK: %[[E:.*]] = fir.alloca !fir.box<!fir.ptr<f32>> {bindc_name = "e", uniq_name = "{{.*}}Ee"}
  49 ! CHECK: %[[DECLE:.*]]:2 = hlfir.declare %[[E]]
  50 ! CHECK: %[[IFCONDITION:.*]] = fir.address_of(@{{.*}}ifcondition) : !fir.ref<!fir.logical<4>>
  51 ! CHECK: %[[DECLIFCONDITION:.*]]:2 = hlfir.declare %[[IFCONDITION]]
  52
  53   !$acc parallel
  54   !$acc end parallel
  55
  56 ! CHECK:      acc.parallel {
  57 ! CHECK:        acc.yield
  58 ! CHECK-NEXT: }{{$}}
  59
  60   !$acc parallel async
  61   !$acc end parallel
  62
  63 ! CHECK: acc.parallel {
  64 ! CHECK:        acc.yield
  65 ! CHECK-NEXT: } attributes {asyncOnly = [#acc.device_type<none>]}
  66
  67   !$acc parallel async(1)
  68   !$acc end parallel
  69
  70 ! CHECK:      [[ASYNC1:%.*]] = arith.constant 1 : i32
  71 ! CHECK:      acc.parallel async([[ASYNC1]] : i32) {
  72 ! CHECK:        acc.yield
  73 ! CHECK-NEXT: }{{$}}
  74
  75   !$acc parallel async(async)
  76   !$acc end parallel
  77
  78 ! CHECK:      [[ASYNC2:%.*]] = fir.load %{{.*}} : !fir.ref<i32>
  79 ! CHECK-NEXT:  acc.parallel async([[ASYNC2]] : i32) {
  80 ! CHECK:        acc.yield
  81 ! CHECK-NEXT: }{{$}}
  82
  83   !$acc parallel wait
  84   !$acc end parallel
  85
  86 ! CHECK:      acc.parallel wait {
  87 ! CHECK:        acc.yield
  88 ! CHECK-NEXT: }
  89
  90   !$acc parallel wait(1)
  91   !$acc end parallel
  92
  93 ! CHECK:      [[WAIT1:%.*]] = arith.constant 1 : i32
  94 ! CHECK:      acc.parallel wait({[[WAIT1]] : i32}) {
  95 ! CHECK:        acc.yield
  96 ! CHECK-NEXT: }{{$}}
  97
  98   !$acc parallel wait(1, 2)
  99   !$acc end parallel
 100
 101 ! CHECK:      [[WAIT2:%.*]] = arith.constant 1 : i32
 102 ! CHECK:      [[WAIT3:%.*]] = arith.constant 2 : i32
 103 ! CHECK:      acc.parallel wait({[[WAIT2]] : i32, [[WAIT3]] : i32}) {
 104 ! CHECK:        acc.yield
 105 ! CHECK-NEXT: }{{$}}
 106
 107   !$acc parallel wait(wait1, wait2)
 108   !$acc end parallel
 109
 110 ! CHECK:      [[WAIT4:%.*]] = fir.load %{{.*}} : !fir.ref<i32>
 111 ! CHECK:      [[WAIT5:%.*]] = fir.load %{{.*}} : !fir.ref<i32>
 112 ! CHECK:      acc.parallel wait({[[WAIT4]] : i32, [[WAIT5]] : i32}) {
 113 ! CHECK:        acc.yield
 114 ! CHECK-NEXT: }{{$}}
 115
 116   !$acc parallel num_gangs(1)
 117   !$acc end parallel
 118
 119 ! CHECK:      [[NUMGANGS1:%.*]] = arith.constant 1 : i32
 120 ! CHECK:      acc.parallel num_gangs({[[NUMGANGS1]] : i32}) {
 121 ! CHECK:        acc.yield
 122 ! CHECK-NEXT: }{{$}}
 123
 124   !$acc parallel num_gangs(numGangs)
 125   !$acc end parallel
 126
 127 ! CHECK:      [[NUMGANGS2:%.*]] = fir.load %{{.*}} : !fir.ref<i32>
 128 ! CHECK:      acc.parallel num_gangs({[[NUMGANGS2]] : i32}) {
 129 ! CHECK:        acc.yield
 130 ! CHECK-NEXT: }{{$}}
 131
 132   !$acc parallel num_gangs(1, 1, 1)
 133   !$acc end parallel
 134
 135 ! CHECK:      acc.parallel num_gangs({%{{.*}} : i32, %{{.*}} : i32, %{{.*}} : i32}) {
 136 ! CHECK:        acc.yield
 137 ! CHECK-NEXT: }{{$}}
 138
 139   !$acc parallel num_workers(10)
 140   !$acc end parallel
 141
 142 ! CHECK:      [[NUMWORKERS1:%.*]] = arith.constant 10 : i32
 143 ! CHECK:      acc.parallel num_workers([[NUMWORKERS1]] : i32) {
 144 ! CHECK:        acc.yield
 145 ! CHECK-NEXT: }{{$}}
 146
 147   !$acc parallel num_workers(numWorkers)
 148   !$acc end parallel
 149
 150 ! CHECK:      [[NUMWORKERS2:%.*]] = fir.load %{{.*}} : !fir.ref<i32>
 151 ! CHECK:      acc.parallel num_workers([[NUMWORKERS2]] : i32) {
 152 ! CHECK:        acc.yield
 153 ! CHECK-NEXT: }{{$}}
 154
 155   !$acc parallel vector_length(128)
 156   !$acc end parallel
 157
 158 ! CHECK:      [[VECTORLENGTH1:%.*]] = arith.constant 128 : i32
 159 ! CHECK:      acc.parallel vector_length([[VECTORLENGTH1]] : i32) {
 160 ! CHECK:        acc.yield
 161 ! CHECK-NEXT: }{{$}}
 162
 163   !$acc parallel vector_length(vectorLength)
 164   !$acc end parallel
 165
 166 ! CHECK:      [[VECTORLENGTH2:%.*]] = fir.load %{{.*}} : !fir.ref<i32>
 167 ! CHECK:      acc.parallel vector_length([[VECTORLENGTH2]] : i32) {
 168 ! CHECK:        acc.yield
 169 ! CHECK-NEXT: }{{$}}
 170
 171   !$acc parallel if(.TRUE.)
 172   !$acc end parallel
 173
 174 ! CHECK:      [[IF1:%.*]] = arith.constant true
 175 ! CHECK:      acc.parallel if([[IF1]]) {
 176 ! CHECK:        acc.yield
 177 ! CHECK-NEXT: }{{$}}
 178
 179   !$acc parallel if(ifCondition)
 180   !$acc end parallel
 181
 182 ! CHECK:      [[IFCOND:%.*]] = fir.load %{{.*}} : !fir.ref<!fir.logical<4>>
 183 ! CHECK:      [[IF2:%.*]] = fir.convert [[IFCOND]] : (!fir.logical<4>) -> i1
 184 ! CHECK:      acc.parallel if([[IF2]]) {
 185 ! CHECK:        acc.yield
 186 ! CHECK-NEXT: }{{$}}
 187
 188   !$acc parallel self(.TRUE.)
 189   !$acc end parallel
 190
 191 ! CHECK:      [[SELF1:%.*]] = arith.constant true
 192 ! CHECK:      acc.parallel self([[SELF1]]) {
 193 ! CHECK:        acc.yield
 194 ! CHECK-NEXT: }{{$}}
 195
 196   !$acc parallel self
 197   !$acc end parallel
 198
 199 ! CHECK:      acc.parallel {
 200 ! CHECK:        acc.yield
 201 ! CHECK-NEXT: } attributes {selfAttr}
 202
 203   !$acc parallel self(ifCondition)
 204   !$acc end parallel
 205
 206 ! CHECK:      %[[SELF2:.*]] = fir.convert %[[DECLIFCONDITION]]#1 : (!fir.ref<!fir.logical<4>>) -> i1
 207 ! CHECK:      acc.parallel self(%[[SELF2]]) {
 208 ! CHECK:        acc.yield
 209 ! CHECK-NEXT: }{{$}}
 210
 211   !$acc parallel copy(a, b, c)
 212   !$acc end parallel
 213
 214 ! CHECK:      %[[COPYIN_A:.*]] = acc.copyin varPtr(%[[DECLA]]#0 : !fir.ref<!fir.array<10x10xf32>>) bounds(%{{.*}}, %{{.*}}) -> !fir.ref<!fir.array<10x10xf32>> {dataClause = #acc<data_clause acc_copy>, name = "a"}
 215 ! CHECK:      %[[COPYIN_B:.*]] = acc.copyin varPtr(%[[DECLB]]#0 : !fir.ref<!fir.array<10x10xf32>>) bounds(%{{.*}}, %{{.*}}) -> !fir.ref<!fir.array<10x10xf32>> {dataClause = #acc<data_clause acc_copy>, name = "b"}
 216 ! CHECK:      %[[COPYIN_C:.*]] = acc.copyin varPtr(%[[DECLC]]#0 : !fir.ref<!fir.array<10x10xf32>>) bounds(%{{.*}}, %{{.*}}) -> !fir.ref<!fir.array<10x10xf32>> {dataClause = #acc<data_clause acc_copy>, name = "c"}
 217 ! CHECK:      acc.parallel dataOperands(%[[COPYIN_A]], %[[COPYIN_B]], %[[COPYIN_C]] : !fir.ref<!fir.array<10x10xf32>>, !fir.ref<!fir.array<10x10xf32>>, !fir.ref<!fir.array<10x10xf32>>) {
 218 ! CHECK:        acc.yield
 219 ! CHECK-NEXT: }{{$}}
 220 ! CHECK:      acc.copyout accPtr(%[[COPYIN_A]] : !fir.ref<!fir.array<10x10xf32>>) bounds(%{{.*}}, %{{.*}}) to varPtr(%[[DECLA]]#0 : !fir.ref<!fir.array<10x10xf32>>) {dataClause = #acc<data_clause acc_copy>, name = "a"}
 221 ! CHECK:      acc.copyout accPtr(%[[COPYIN_B]] : !fir.ref<!fir.array<10x10xf32>>) bounds(%{{.*}}, %{{.*}}) to varPtr(%[[DECLB]]#0 : !fir.ref<!fir.array<10x10xf32>>) {dataClause = #acc<data_clause acc_copy>, name = "b"}
 222 ! CHECK:      acc.copyout accPtr(%[[COPYIN_C]] : !fir.ref<!fir.array<10x10xf32>>) bounds(%{{.*}}, %{{.*}}) to varPtr(%[[DECLC]]#0 : !fir.ref<!fir.array<10x10xf32>>) {dataClause = #acc<data_clause acc_copy>, name = "c"}
 223
 224   !$acc parallel copy(a) copy(b) copy(c)
 225   !$acc end parallel
 226
 227
 228 ! CHECK:      %[[COPYIN_A:.*]] = acc.copyin varPtr(%[[DECLA]]#0 : !fir.ref<!fir.array<10x10xf32>>) bounds(%{{.*}}, %{{.*}}) -> !fir.ref<!fir.array<10x10xf32>> {dataClause = #acc<data_clause acc_copy>, name = "a"}
 229 ! CHECK:      %[[COPYIN_B:.*]] = acc.copyin varPtr(%[[DECLB]]#0 : !fir.ref<!fir.array<10x10xf32>>) bounds(%{{.*}}, %{{.*}}) -> !fir.ref<!fir.array<10x10xf32>> {dataClause = #acc<data_clause acc_copy>, name = "b"}
 230 ! CHECK:      %[[COPYIN_C:.*]] = acc.copyin varPtr(%[[DECLC]]#0 : !fir.ref<!fir.array<10x10xf32>>) bounds(%{{.*}}, %{{.*}}) -> !fir.ref<!fir.array<10x10xf32>> {dataClause = #acc<data_clause acc_copy>, name = "c"}
 231 ! CHECK:      acc.parallel dataOperands(%[[COPYIN_A]], %[[COPYIN_B]], %[[COPYIN_C]] : !fir.ref<!fir.array<10x10xf32>>, !fir.ref<!fir.array<10x10xf32>>, !fir.ref<!fir.array<10x10xf32>>) {
 232 ! CHECK:        acc.yield
 233 ! CHECK-NEXT: }{{$}}
 234 ! CHECK:      acc.copyout accPtr(%[[COPYIN_A]] : !fir.ref<!fir.array<10x10xf32>>) bounds(%{{.*}}, %{{.*}}) to varPtr(%[[DECLA]]#0 : !fir.ref<!fir.array<10x10xf32>>) {dataClause = #acc<data_clause acc_copy>, name = "a"}
 235 ! CHECK:      acc.copyout accPtr(%[[COPYIN_B]] : !fir.ref<!fir.array<10x10xf32>>) bounds(%{{.*}}, %{{.*}}) to varPtr(%[[DECLB]]#0 : !fir.ref<!fir.array<10x10xf32>>) {dataClause = #acc<data_clause acc_copy>, name = "b"}
 236 ! CHECK:      acc.copyout accPtr(%[[COPYIN_C]] : !fir.ref<!fir.array<10x10xf32>>) bounds(%{{.*}}, %{{.*}}) to varPtr(%[[DECLC]]#0 : !fir.ref<!fir.array<10x10xf32>>) {dataClause = #acc<data_clause acc_copy>, name = "c"}
 237
 238   !$acc parallel copyin(a) copyin(readonly: b, c)
 239   !$acc end parallel
 240
 241 ! CHECK:      %[[COPYIN_A:.*]] = acc.copyin varPtr(%[[DECLA]]#0 : !fir.ref<!fir.array<10x10xf32>>) bounds(%{{.*}}, %{{.*}}) -> !fir.ref<!fir.array<10x10xf32>> {name = "a"}
 242 ! CHECK:      %[[COPYIN_B:.*]] = acc.copyin varPtr(%[[DECLB]]#0 : !fir.ref<!fir.array<10x10xf32>>) bounds(%{{.*}}, %{{.*}}) -> !fir.ref<!fir.array<10x10xf32>> {dataClause = #acc<data_clause acc_copyin_readonly>, name = "b"}
 243 ! CHECK:      %[[COPYIN_C:.*]] = acc.copyin varPtr(%[[DECLC]]#0 : !fir.ref<!fir.array<10x10xf32>>) bounds(%{{.*}}, %{{.*}}) -> !fir.ref<!fir.array<10x10xf32>> {dataClause = #acc<data_clause acc_copyin_readonly>, name = "c"}
 244 ! CHECK:      acc.parallel dataOperands(%[[COPYIN_A]], %[[COPYIN_B]], %[[COPYIN_C]] : !fir.ref<!fir.array<10x10xf32>>, !fir.ref<!fir.array<10x10xf32>>, !fir.ref<!fir.array<10x10xf32>>) {
 245 ! CHECK:        acc.yield
 246 ! CHECK-NEXT: }{{$}}
 247
 248   !$acc parallel copyout(a) copyout(zero: b) copyout(c)
 249   !$acc end parallel
 250
 251 ! CHECK: %[[CREATE_A:.*]] = acc.create varPtr(%[[DECLA]]#0 : !fir.ref<!fir.array<10x10xf32>>) bounds(%{{.*}}, %{{.*}}) -> !fir.ref<!fir.array<10x10xf32>> {dataClause = #acc<data_clause acc_copyout>, name = "a"}
 252 ! CHECK: %[[CREATE_B:.*]] = acc.create varPtr(%[[DECLB]]#0 : !fir.ref<!fir.array<10x10xf32>>) bounds(%{{.*}}, %{{.*}}) -> !fir.ref<!fir.array<10x10xf32>> {dataClause = #acc<data_clause acc_copyout>, name = "b"}
 253 ! CHECK: %[[CREATE_C:.*]] = acc.create varPtr(%[[DECLC]]#0 : !fir.ref<!fir.array<10x10xf32>>) bounds(%{{.*}}, %{{.*}}) -> !fir.ref<!fir.array<10x10xf32>> {dataClause = #acc<data_clause acc_copyout>, name = "c"}
 254 ! CHECK:      acc.parallel dataOperands(%[[CREATE_A]], %[[CREATE_B]], %[[CREATE_C]] : !fir.ref<!fir.array<10x10xf32>>, !fir.ref<!fir.array<10x10xf32>>, !fir.ref<!fir.array<10x10xf32>>) {
 255 ! CHECK:        acc.yield
 256 ! CHECK-NEXT: }{{$}}
 257 ! CHECK: acc.copyout accPtr(%[[CREATE_A]] : !fir.ref<!fir.array<10x10xf32>>) bounds(%{{.*}}, %{{.*}}) to varPtr(%[[DECLA]]#0 : !fir.ref<!fir.array<10x10xf32>>) {name = "a"}
 258 ! CHECK: acc.copyout accPtr(%[[CREATE_B]] : !fir.ref<!fir.array<10x10xf32>>) bounds(%{{.*}}, %{{.*}}) to varPtr(%[[DECLB]]#0 : !fir.ref<!fir.array<10x10xf32>>) {name = "b"}
 259 ! CHECK: acc.copyout accPtr(%[[CREATE_C]] : !fir.ref<!fir.array<10x10xf32>>) bounds(%{{.*}}, %{{.*}}) to varPtr(%[[DECLC]]#0 : !fir.ref<!fir.array<10x10xf32>>) {name = "c"}
 260
 261   !$acc parallel create(a, b) create(zero: c)
 262   !$acc end parallel
 263
 264 ! CHECK: %[[CREATE_A:.*]] = acc.create varPtr(%[[DECLA]]#0 : !fir.ref<!fir.array<10x10xf32>>) bounds(%{{.*}}, %{{.*}}) -> !fir.ref<!fir.array<10x10xf32>> {name = "a"}
 265 ! CHECK: %[[CREATE_B:.*]] = acc.create varPtr(%[[DECLB]]#0 : !fir.ref<!fir.array<10x10xf32>>) bounds(%{{.*}}, %{{.*}}) -> !fir.ref<!fir.array<10x10xf32>> {name = "b"}
 266 ! CHECK: %[[CREATE_C:.*]] = acc.create varPtr(%[[DECLC]]#0 : !fir.ref<!fir.array<10x10xf32>>) bounds(%{{.*}}, %{{.*}}) -> !fir.ref<!fir.array<10x10xf32>> {dataClause = #acc<data_clause acc_create_zero>, name = "c"}
 267 ! CHECK:      acc.parallel dataOperands(%[[CREATE_A]], %[[CREATE_B]], %[[CREATE_C]] : !fir.ref<!fir.array<10x10xf32>>, !fir.ref<!fir.array<10x10xf32>>, !fir.ref<!fir.array<10x10xf32>>) {
 268 ! CHECK:        acc.yield
 269 ! CHECK-NEXT: }{{$}}
 270 ! CHECK: acc.delete accPtr(%[[CREATE_A]] : !fir.ref<!fir.array<10x10xf32>>) bounds(%{{.*}}, %{{.*}}) {dataClause = #acc<data_clause acc_create>, name = "a"}
 271 ! CHECK: acc.delete accPtr(%[[CREATE_B]] : !fir.ref<!fir.array<10x10xf32>>) bounds(%{{.*}}, %{{.*}}) {dataClause = #acc<data_clause acc_create>, name = "b"}
 272 ! CHECK: acc.delete accPtr(%[[CREATE_C]] : !fir.ref<!fir.array<10x10xf32>>) bounds(%{{.*}}, %{{.*}}) {dataClause = #acc<data_clause acc_create_zero>, name = "c"}
 273
 274   !$acc parallel create(c) copy(b) create(a)
 275   !$acc end parallel
 276 ! CHECK: %[[CREATE_C:.*]] = acc.create varPtr(%[[DECLC]]#0 : !fir.ref<!fir.array<10x10xf32>>) bounds(%{{.*}}, %{{.*}}) -> !fir.ref<!fir.array<10x10xf32>> {name = "c"}
 277 ! CHECK: %[[COPY_B:.*]] = acc.copyin varPtr(%[[DECLB]]#0 : !fir.ref<!fir.array<10x10xf32>>) bounds(%{{.*}}, %{{.*}}) -> !fir.ref<!fir.array<10x10xf32>> {dataClause = #acc<data_clause acc_copy>, name = "b"}
 278 ! CHECK: %[[CREATE_A:.*]] = acc.create varPtr(%[[DECLA]]#0 : !fir.ref<!fir.array<10x10xf32>>) bounds(%{{.*}}, %{{.*}}) -> !fir.ref<!fir.array<10x10xf32>> {name = "a"}
 279 ! CHECK: acc.parallel   dataOperands(%[[CREATE_C]], %[[COPY_B]], %[[CREATE_A]] : !fir.ref<!fir.array<10x10xf32>>, !fir.ref<!fir.array<10x10xf32>>, !fir.ref<!fir.array<10x10xf32>>) {
 280
 281   !$acc parallel no_create(a, b) create(zero: c)
 282   !$acc end parallel
 283
 284 ! CHECK: %[[NO_CREATE_A:.*]] = acc.nocreate varPtr(%[[DECLA]]#0 : !fir.ref<!fir.array<10x10xf32>>) bounds(%{{.*}}, %{{.*}}) -> !fir.ref<!fir.array<10x10xf32>> {name = "a"}
 285 ! CHECK: %[[NO_CREATE_B:.*]] = acc.nocreate varPtr(%[[DECLB]]#0 : !fir.ref<!fir.array<10x10xf32>>) bounds(%{{.*}}, %{{.*}}) -> !fir.ref<!fir.array<10x10xf32>> {name = "b"}
 286 ! CHECK: %[[CREATE_C:.*]] = acc.create varPtr(%[[DECLC]]#0 : !fir.ref<!fir.array<10x10xf32>>) bounds(%{{.*}}, %{{.*}}) -> !fir.ref<!fir.array<10x10xf32>> {dataClause = #acc<data_clause acc_create_zero>, name = "c"}
 287 ! CHECK:      acc.parallel dataOperands(%[[NO_CREATE_A]], %[[NO_CREATE_B]], %[[CREATE_C]] : !fir.ref<!fir.array<10x10xf32>>, !fir.ref<!fir.array<10x10xf32>>, !fir.ref<!fir.array<10x10xf32>>) {
 288 ! CHECK:        acc.yield
 289 ! CHECK-NEXT: }{{$}}
 290 ! CHECK: acc.delete accPtr(%[[CREATE_C]] : !fir.ref<!fir.array<10x10xf32>>) bounds(%{{.*}}, %{{.*}}) {dataClause = #acc<data_clause acc_create_zero>, name = "c"}
 291
 292
 293   !$acc parallel present(a, b, c)
 294   !$acc end parallel
 295
 296 ! CHECK: %[[PRESENT_A:.*]] = acc.present varPtr(%[[DECLA]]#0 : !fir.ref<!fir.array<10x10xf32>>) bounds(%{{.*}}, %{{.*}}) -> !fir.ref<!fir.array<10x10xf32>> {name = "a"}
 297 ! CHECK: %[[PRESENT_B:.*]] = acc.present varPtr(%[[DECLB]]#0 : !fir.ref<!fir.array<10x10xf32>>) bounds(%{{.*}}, %{{.*}}) -> !fir.ref<!fir.array<10x10xf32>> {name = "b"}
 298 ! CHECK: %[[PRESENT_C:.*]] = acc.present varPtr(%[[DECLC]]#0 : !fir.ref<!fir.array<10x10xf32>>) bounds(%{{.*}}, %{{.*}}) -> !fir.ref<!fir.array<10x10xf32>> {name = "c"}
 299 ! CHECK:      acc.parallel dataOperands(%[[PRESENT_A]], %[[PRESENT_B]], %[[PRESENT_C]] : !fir.ref<!fir.array<10x10xf32>>, !fir.ref<!fir.array<10x10xf32>>, !fir.ref<!fir.array<10x10xf32>>) {
 300 ! CHECK:        acc.yield
 301 ! CHECK-NEXT: }{{$}}
 302
 303   !$acc parallel deviceptr(a) deviceptr(c)
 304   !$acc end parallel
 305
 306 ! CHECK: %[[DEVICEPTR_A:.*]] = acc.deviceptr varPtr(%[[DECLA]]#0 : !fir.ref<!fir.array<10x10xf32>>) bounds(%{{.*}}, %{{.*}}) -> !fir.ref<!fir.array<10x10xf32>> {name = "a"}
 307 ! CHECK: %[[DEVICEPTR_C:.*]] = acc.deviceptr varPtr(%[[DECLC]]#0 : !fir.ref<!fir.array<10x10xf32>>) bounds(%{{.*}}, %{{.*}}) -> !fir.ref<!fir.array<10x10xf32>> {name = "c"}
 308 ! CHECK:      acc.parallel dataOperands(%[[DEVICEPTR_A]], %[[DEVICEPTR_C]] : !fir.ref<!fir.array<10x10xf32>>, !fir.ref<!fir.array<10x10xf32>>) {
 309 ! CHECK:        acc.yield
 310 ! CHECK-NEXT: }{{$}}
 311
 312   !$acc parallel attach(d, e)
 313   !$acc end parallel
 314
 315 ! CHECK: %[[BOX_D:.*]] = fir.load %[[DECLD]]#0 : !fir.ref<!fir.box<!fir.ptr<f32>>>
 316 ! CHECK: %[[BOX_ADDR_D:.*]] = fir.box_addr %[[BOX_D]] : (!fir.box<!fir.ptr<f32>>) -> !fir.ptr<f32>
 317 ! CHECK: %[[ATTACH_D:.*]] = acc.attach varPtr(%[[BOX_ADDR_D]] : !fir.ptr<f32>) -> !fir.ptr<f32> {name = "d"}
 318 ! CHECK: %[[BOX_E:.*]] = fir.load %[[DECLE]]#0 : !fir.ref<!fir.box<!fir.ptr<f32>>>
 319 ! CHECK: %[[BOX_ADDR_E:.*]] = fir.box_addr %[[BOX_E]] : (!fir.box<!fir.ptr<f32>>) -> !fir.ptr<f32>
 320 ! CHECK: %[[ATTACH_E:.*]] = acc.attach varPtr(%[[BOX_ADDR_E]] : !fir.ptr<f32>) -> !fir.ptr<f32> {name = "e"}
 321 ! CHECK: acc.parallel dataOperands(%[[ATTACH_D]], %[[ATTACH_E]] : !fir.ptr<f32>, !fir.ptr<f32>) {
 322 ! CHECK:        acc.yield
 323 ! CHECK-NEXT: }{{$}}
 324 ! CHECK: acc.detach accPtr(%[[ATTACH_D]] : !fir.ptr<f32>) {dataClause = #acc<data_clause acc_attach>, name = "d"}
 325 ! CHECK: acc.detach accPtr(%[[ATTACH_E]] : !fir.ptr<f32>) {dataClause = #acc<data_clause acc_attach>, name = "e"}
 326
 327 !$acc parallel private(a) firstprivate(b) private(c) async(1)
 328 !$acc end parallel
 329
 330 ! CHECK:      %[[ACC_PRIVATE_A:.*]] = acc.private varPtr(%[[DECLA]]#0 : !fir.ref<!fir.array<10x10xf32>>) bounds(%{{.*}}, %{{.*}}) async([[ASYNC3:%.*]]) -> !fir.ref<!fir.array<10x10xf32>> {name = "a"}
 331 ! CHECK:      %[[ACC_FPRIVATE_B:.*]] = acc.firstprivate varPtr(%[[DECLB]]#0 : !fir.ref<!fir.array<10x10xf32>>) bounds(%{{.*}}, %{{.*}}) async([[ASYNC3]]) -> !fir.ref<!fir.array<10x10xf32>> {name = "b"}
 332 ! CHECK:      %[[ACC_PRIVATE_C:.*]] = acc.private varPtr(%[[DECLC]]#0 : !fir.ref<!fir.array<10x10xf32>>) bounds(%{{.*}}, %{{.*}}) async([[ASYNC3]]) -> !fir.ref<!fir.array<10x10xf32>> {name = "c"}
 333 ! CHECK:      acc.parallel async([[ASYNC3]]) firstprivate(@firstprivatization_section_ext10xext10_ref_10x10xf32 -> %[[ACC_FPRIVATE_B]] : !fir.ref<!fir.array<10x10xf32>>) private(@privatization_ref_10x10xf32 -> %[[ACC_PRIVATE_A]] : !fir.ref<!fir.array<10x10xf32>>, @privatization_ref_10x10xf32 -> %[[ACC_PRIVATE_C]] : !fir.ref<!fir.array<10x10xf32>>) {
 334 ! CHECK:        acc.yield
 335 ! CHECK-NEXT: }{{$}}
 336
 337 !$acc parallel reduction(+:reduction_r) reduction(*:reduction_i)
 338 !$acc end parallel
 339
 340 ! CHECK:      acc.parallel reduction(@reduction_add_ref_f32 -> %{{.*}} : !fir.ref<f32>, @reduction_mul_ref_i32 -> %{{.*}} : !fir.ref<i32>) {
 341 ! CHECK:        acc.yield
 342 ! CHECK-NEXT: }{{$}}
 343
 344 !$acc parallel default(none)
 345 !$acc end parallel
 346
 347 ! CHECK: acc.parallel {
 348 ! CHECK: } attributes {defaultAttr = #acc<defaultvalue none>}
 349
 350 !$acc parallel default(present)
 351 !$acc end parallel
 352
 353 ! CHECK: acc.parallel {
 354 ! CHECK: } attributes {defaultAttr = #acc<defaultvalue present>}
 355
 356 end subroutine acc_parallel