[flang-commits] [flang] [flang][CUDA] Preserve data attrs on assignment RHS (PR #207849)

[Eugene Epshteyn via flang-commits]

================

----------------
eugeneepshteyn wrote:

Probably another "extra credit": do we support `where` in such usages?
```
module m
  type box
    integer :: n
  end type
  interface assignment(=)
    module procedure assign_e
  end interface
contains
  elemental subroutine assign_e(lhs, rhs)
    type(box), intent(inout) :: lhs
    real, device, intent(in) :: rhs
    lhs%n = 1
  end subroutine
end module

subroutine test
  use m
  type(box) :: lhs(4)
  real, device :: dev(4)
  logical :: mask(4)
  where (mask) lhs = dev
end subroutine
```

https://github.com/llvm/llvm-project/pull/207849