program array_03_transfer
  integer :: x = 21432
  print *, transfer(x, 1.0)
end program