blob: 903adb97501472baa0329477d53ce70d25416f5c [file] [edit]
! RUN: bbc -emit-hlfir -fopenacc -fcuda -gpu=managed %s -o - | FileCheck %s
subroutine test()
real, allocatable :: a(:), b(:)
real :: c(10)
allocate(a(10))
allocate(b(10))
do i = 1, 10
c(i) = a(i) + b(i) ! no implicit data transfer generated
end do
deallocate(a)
deallocate(b)
end subroutine test
! CHECK-NOT: cuf.data_transfer
! CHECK: hlfir.assign