program transfer
  implicit none
  != unit m :: x
  real :: x
  != unit s :: y
  real :: y
  x = x + transfer(x, y)
end program transfer