<Example Program>

Program lle_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, 'LLE(A,B)', lle(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"
   LLE(A,B) =     F       T       T
       A<=B =     F       T       T