strcmp.f90

来自「用于进行gcc测试」· F90 代码 · 共 17 行

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