<Example Program>

Program llt_example
  Character(3) :: a(3) = [ 'ab1', 'ab2', 'de3' ]
  Character(3) :: b(3) = [ 'ab0', 'ab2', 'de4' ]
  Print 1, 'A', '"'//a//'"'
1 Format(1X,A10,' =',99(:,1X,A7))
  Print 1, 'B', '"'//b//'"'
  Print 2, 'LLT(A,B)', llt(a,b)
2 Format(1X,A10,' =',99(:,1X,L5,2X))
  Print 2, 'A<B', a<b
End Program
Execution Results

          A =   "ab1"   "ab2"   "de3"
          B =   "ab0"   "ab2"   "de4"
   LLT(A,B) =     F       F       T
        A<B =     F       F       T