3 character(len=20) :: foo
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
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