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

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [emptyif.f90] - Diff between revs 303 and 338

Rev 303	Rev 338
`! Test empty if statements. We Used to fail this because we folded`	`! Test empty if statements. We Used to fail this because we folded`
`! the if stmt before we finished building it.`	`! the if stmt before we finished building it.`
`program emptyif`	`program emptyif`
`implicit none`	`implicit none`
`integer i`	`integer i`

`i=1`	`i=1`
`if(i .le. 0) then`	`if(i .le. 0) then`
`else`	`else`
`i = 2`	`i = 2`
`endif`	`endif`
`if (i .ne. 2) call abort()`	`if (i .ne. 2) call abort()`

`if (i .eq. 0) then`	`if (i .eq. 0) then`
`elseif (i .eq. 2) then`	`elseif (i .eq. 2) then`
`i = 3`	`i = 3`
`end if`	`end if`
`if (i .ne. 3) call abort()`	`if (i .ne. 3) call abort()`
`end`	`end`