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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gcc.c-torture/] [execute/] [20030401-1.c] - Diff between revs 149 and 154

Rev 149	Rev 154
`/* Testcase for PR fortran/9974. This was a miscompilation of the g77`	`/* Testcase for PR fortran/9974. This was a miscompilation of the g77`
`front-end caused by the jump bypassing optimizations not handling`	`front-end caused by the jump bypassing optimizations not handling`
`instructions inserted on CFG edges. */`	`instructions inserted on CFG edges. */`

`extern void abort ();`	`extern void abort ();`

`int bar ()`	`int bar ()`
`{`	`{`
`return 1;`	`return 1;`
`}`	`}`

`void foo (int x)`	`void foo (int x)`
`{`	`{`
`unsigned char error = 0;`	`unsigned char error = 0;`

`if (! (error = ((x == 0) \|\| bar ())))`	`if (! (error = ((x == 0) \|\| bar ())))`
`bar ();`	`bar ();`
`if (! error)`	`if (! error)`
`abort ();`	`abort ();`
`}`	`}`

`int main()`	`int main()`
`{`	`{`
`foo (1);`	`foo (1);`
`return 0;`	`return 0;`
`}`	`}`