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.dg/] [g77/] [19990419-1.f] - Diff between revs 302 and 384

Rev 302	Rev 384
`c { dg-do run }`	`c { dg-do run }`
`* Test DO WHILE, to make sure it fully reevaluates its expression.`	`* Test DO WHILE, to make sure it fully reevaluates its expression.`
`* Belongs in execute/.`	`* Belongs in execute/.`
`common /x/ ival`	`common /x/ ival`
`j = 0`	`j = 0`
`do while (i() .eq. 1)`	`do while (i() .eq. 1)`
`j = j + 1`	`j = j + 1`
`if (j .gt. 5) call abort`	`if (j .gt. 5) call abort`
`end do`	`end do`
`if (j .ne. 4) call abort`	`if (j .ne. 4) call abort`
`if (ival .ne. 5) call abort`	`if (ival .ne. 5) call abort`
`end`	`end`
`function i()`	`function i()`
`common /x/ ival`	`common /x/ ival`
`ival = ival + 1`	`ival = ival + 1`
`i = 10`	`i = 10`
`if (ival .lt. 5) i = 1`	`if (ival .lt. 5) i = 1`
`end`	`end`
`block data`	`block data`
`common /x/ ival`	`common /x/ ival`
`data ival/0/`	`data ival/0/`
`end`	`end`