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