974566914c
The workaround for no_create with array section is not needed anymore because it has been expected that it would be up to the runtime to make sure fir.box for the variable are always readable on the device even when the variable is not present.
22 lines
1.3 KiB
Fortran
22 lines
1.3 KiB
Fortran
! This test checks lowering of OpenACC no_create with an array section.
|
|
|
|
! RUN: bbc -fopenacc -emit-hlfir %s -o - | FileCheck %s
|
|
|
|
subroutine foo(n)
|
|
real :: a(n)
|
|
!$acc parallel no_create(a(11:20))
|
|
call bar(a)
|
|
!$acc end parallel
|
|
end subroutine
|
|
! CHECK-LABEL: func.func @_QPfoo(
|
|
! CHECK: %[[SHAPE_0:.*]] = fir.shape
|
|
! CHECK: %[[BOUNDS_0:.*]] = acc.bounds
|
|
! CHECK: %[[NOCREATE_0:.*]] = acc.nocreate var(%{{.*}} : !fir.box<!fir.array<?xf32>>) bounds(%[[BOUNDS_0]]) -> !fir.box<!fir.array<?xf32>> {name = "a(11:20)"}
|
|
! CHECK: acc.parallel dataOperands(%[[NOCREATE_0]] : !fir.box<!fir.array<?xf32>>) {
|
|
! CHECK: %[[BOX_ADDR_0:.*]] = fir.box_addr %[[NOCREATE_0]] : (!fir.box<!fir.array<?xf32>>) -> !fir.ref<!fir.array<?xf32>>
|
|
! CHECK: %[[DECLARE_2:.*]]:2 = hlfir.declare %[[BOX_ADDR_0]](%[[SHAPE_0]]) {uniq_name = "_QFfooEa"} : (!fir.ref<!fir.array<?xf32>>, !fir.shape<1>) -> (!fir.box<!fir.array<?xf32>>, !fir.ref<!fir.array<?xf32>>)
|
|
! CHECK: fir.call @_QPbar(%[[DECLARE_2]]#1) fastmath<contract> : (!fir.ref<!fir.array<?xf32>>) -> ()
|
|
! CHECK: acc.yield
|
|
! CHECK: }
|
|
! CHECK: acc.delete accVar(%[[NOCREATE_0]] : !fir.box<!fir.array<?xf32>>) bounds(%[[BOUNDS_0]]) {dataClause = #acc<data_clause acc_no_create>, name = "a(11:20)"}
|