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.0rc1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [strcmp.f90] - Blame information for rev 303

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	303	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_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [strcmp.f90] - Blame information for rev 303