1program test
2   implicit none
3   character(len=20) :: foo
4
5   foo="hello"
6
7   if (llt(foo, "hello")) STOP 1
8   if (.not. lle(foo, "hello")) STOP 2
9   if (lgt("hello", foo)) STOP 3
10   if (.not. lge("hello", foo)) STOP 4
11
12   if (.not. llt(foo, "world")) STOP 5
13   if (.not. lle(foo, "world")) STOP 6
14   if (lgt(foo, "world")) STOP 7
15   if (lge(foo, "world")) STOP 8
16end
17