Program len_example
  Character(:),Allocatable :: x
  Character(*),Parameter :: message = 'Hello'
  Print *, message, Len(message)
  x = message//' World'
  Print *, x, Len(x)
End Program