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.0rc2/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [arithmeticif.f90] - Diff between revs 303 and 384

Rev 303	Rev 384
`! Program to test the arithmetic if statement`	`! Program to test the arithmetic if statement`
`function testif (a)`	`function testif (a)`
`implicit none`	`implicit none`
`integer a, b, testif`	`integer a, b, testif`

`if (a) 1, 2, 3`	`if (a) 1, 2, 3`
`b = 2`	`b = 2`
`goto 4`	`goto 4`
`1 b = -1`	`1 b = -1`
`goto 4`	`goto 4`
`2 b = 0`	`2 b = 0`
`goto 4`	`goto 4`
`3 b = 1`	`3 b = 1`
`4 testif = b`	`4 testif = b`
`end function`	`end function`

`program testwrite`	`program testwrite`
`implicit none`	`implicit none`
`integer i`	`integer i`
`integer testif`	`integer testif`

`if (testif (-10) .ne. -1) call abort`	`if (testif (-10) .ne. -1) call abort`
`if (testif (0) .ne. 0) call abort`	`if (testif (0) .ne. 0) call abort`
`if (testif (10) .ne. 1) call abort`	`if (testif (10) .ne. 1) call abort`
`end program`	`end program`