TRANSFER example program

<Example Program>

Program transfer_example
  Use f90_kind
  Implicit None
  Print 1, 12345.0, Transfer(12345.0, [ 0_int8 ])
1 Format(1X, 'Real ', SP, ES13.6, ' as a string of bytes is', 99(1X,Z2.2))
  Print *, '(Note this depends on the endianness of the machine architecture,'
  Print *, ' as well as on the internal representation of Real numbers.)'
End Program

Execution Results

 Real +1.234500E+04 as a string of bytes is 00 E4 40 46
 (Note this depends on the endianness of the machine architecture,
  as well as on the internal representation of Real numbers.)