gcc/testsuite/gfortran.fortran-torture/execute/strcmp.f90

   1 program 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
  16 end