URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Subversion Repositories openrisc_2011-10-31
[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [strcmp.f90] - Rev 384
Compare with Previous | Blame | View Log
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