program truncate_padding
  implicit none
  character a*4, b*2, c*6
  b = "XY"
  c = "ABCDEF"
  a = b        ! aは "XY  " となる（２つの空白が後ろにつく）
  print *, '"', a, '"'
  a = c        ! aは "ABCD" となる（"EF"は切り捨てられる）
  print *, '"', a, '"'
end program truncate_padding