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

[Eugene Epshteyn via flang-commits]

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

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

I don't know how `assiciate` fits into this, so maybe this is "extra credit" for a future PR:
```
module m
  type t
    real :: x(100)
  end type
  interface assignment(=)
    module procedure assign_t
  end interface
contains
  subroutine assign_t(host_t, dev_x)
    type(t), intent(inout) :: host_t
    real, device, intent(in) :: dev_x(:)
    host_t%x = dev_x
  end subroutine
end module

subroutine test
  use m
  real, device :: x(100)
  type(t) :: tee
  associate (a => x)
    tee = a
  end associate
end subroutine
```

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