1program test 2 implicit none 3 character(len=20) :: foo 4 5 foo="hello" 6 7 if (llt(foo, "hello")) STOP 1 8 if (.not. lle(foo, "hello")) STOP 2 9 if (lgt("hello", foo)) STOP 3 10 if (.not. lge("hello", foo)) STOP 4 11 12 if (.not. llt(foo, "world")) STOP 5 13 if (.not. lle(foo, "world")) STOP 6 14 if (lgt(foo, "world")) STOP 7 15 if (lge(foo, "world")) STOP 8 16end 17