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