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")) 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
  16 end