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


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

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