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] - Blame information for rev 308

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_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [strcmp.f90] - Blame information for rev 308