<Example Program>

Program lgt_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, 'LGT(A,B)', lgt(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"
   LGT(A,B) =     T       F       F
        A>B =     T       F       F