URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [strcmp.f90] - Rev 307
Go to most recent revision | 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
Go to most recent revision | Compare with Previous | Blame | View Log