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