<Example Program>

Program lge_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, 'LGE(A,B)', lge(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"
   LGE(A,B) =     T       T       F
       A>=B =     T       T       F