program test
   implicit none
   character(len=20) :: foo

   foo="hello"

   if (llt(foo, "hello")) STOP 1
   if (.not. lle(foo, "hello")) STOP 2
   if (lgt("hello", foo)) STOP 3
   if (.not. lge("hello", foo)) STOP 4

   if (.not. llt(foo, "world")) STOP 5
   if (.not. lle(foo, "world")) STOP 6
   if (lgt(foo, "world")) STOP 7
   if (lge(foo, "world")) STOP 8
end