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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [string.f90] - Diff between revs 149 and 154

Rev 149	Rev 154
`! Program to test string handling`	`! Program to test string handling`
`program string`	`program string`
`implicit none`	`implicit none`
`character(len=5) :: a, b`	`character(len=5) :: a, b`
`character(len=20) :: c`	`character(len=20) :: c`

`a = 'Hello'`	`a = 'Hello'`
`b = 'World'`	`b = 'World'`
`c = a//b`	`c = a//b`

`if (c .ne. 'HelloWorld') call abort`	`if (c .ne. 'HelloWorld') call abort`
`if (c .eq. 'WorldHello') call abort`	`if (c .eq. 'WorldHello') call abort`
`if (a//'World' .ne. 'HelloWorld') call abort`	`if (a//'World' .ne. 'HelloWorld') call abort`
`if (a .ge. b) call abort`	`if (a .ge. b) call abort`
`end program`	`end program`