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