Program len_trim_example
  Character(80) :: message = 'Hello'
  Print *, Len_Trim(message), message(1:Len_Trim(message))
  message = 'Hello Blank Padding'
  Print *, Len_Trim(message), message(1:Len_Trim(message))
End Program