| program test | |
| implicit none | |
| character(len=20) :: foo | |
| foo="hello" | |
| if (llt(foo, "hello")) STOP 1 | |
| if (.not. lle(foo, "hello")) STOP 2 | |
| if (lgt("hello", foo)) STOP 3 | |
| if (.not. lge("hello", foo)) STOP 4 | |
| if (.not. llt(foo, "world")) STOP 5 | |
| if (.not. lle(foo, "world")) STOP 6 | |
| if (lgt(foo, "world")) STOP 7 | |
| if (lge(foo, "world")) STOP 8 | |
| end |