| ! 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 |