URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [strcmp.f90] - Blame information for rev 801

Go to most recent revision | Details | Compare with Previous | 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

Line No.	Rev	Author	Line
1	695	jeremybenn	`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`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [strcmp.f90] - Blame information for rev 801