program main
  implicit none
  real :: a
  character(16) :: str

  a = 1.0
  write(str, *) a
  print*, trim(str)

  str = '2.0'
  read(str, *) a
  print*, a

  write(str, "(f8.3)") a
  print*, trim(str)

end program main