TRIM example program

<Example Program>

Program trim_example
  Character(80) :: message = 'Hello'
  Print *, Len_Trim(message), Trim(message), '!'
  message = 'Hello Blank Padding'
  Print *, Len_Trim(message), Trim(message), '!'
End Program

Execution Results

 5 Hello!
 19 Hello Blank Padding!