program test | |
implicit none | |
character(len=20) :: foo | |
foo="hello" | |
if (llt(foo, "hello")) call abort | |
if (.not. lle(foo, "hello")) call abort | |
if (lgt("hello", foo)) call abort | |
if (.not. lge("hello", foo)) call abort | |
if (.not. llt(foo, "world")) call abort | |
if (.not. lle(foo, "world")) call abort | |
if (lgt(foo, "world")) call abort | |
if (lge(foo, "world")) call abort | |
end |