OpenCores

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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gcc.c-torture/] [execute/] [va-arg-17.c] - Diff between revs 149 and 154

Only display areas with differences | Details | Blame | View Log

Rev 149	Rev 154
`#include <stdarg.h>`	`#include <stdarg.h>`

`typedef double TYPE;`	`typedef double TYPE;`

`void vafunction (char *dummy, ...)`	`void vafunction (char *dummy, ...)`
`{`	`{`
`va_list ap;`	`va_list ap;`

`va_start(ap, dummy);`	`va_start(ap, dummy);`
`if (va_arg (ap, TYPE) != 1.)`	`if (va_arg (ap, TYPE) != 1.)`
`abort();`	`abort();`
`if (va_arg (ap, TYPE) != 2.)`	`if (va_arg (ap, TYPE) != 2.)`
`abort();`	`abort();`
`if (va_arg (ap, TYPE) != 3.)`	`if (va_arg (ap, TYPE) != 3.)`
`abort();`	`abort();`
`if (va_arg (ap, TYPE) != 4.)`	`if (va_arg (ap, TYPE) != 4.)`
`abort();`	`abort();`
`if (va_arg (ap, TYPE) != 5.)`	`if (va_arg (ap, TYPE) != 5.)`
`abort();`	`abort();`
`if (va_arg (ap, TYPE) != 6.)`	`if (va_arg (ap, TYPE) != 6.)`
`abort();`	`abort();`
`if (va_arg (ap, TYPE) != 7.)`	`if (va_arg (ap, TYPE) != 7.)`
`abort();`	`abort();`
`if (va_arg (ap, TYPE) != 8.)`	`if (va_arg (ap, TYPE) != 8.)`
`abort();`	`abort();`
`if (va_arg (ap, TYPE) != 9.)`	`if (va_arg (ap, TYPE) != 9.)`
`abort();`	`abort();`
`va_end(ap);`	`va_end(ap);`
`}`	`}`


`int main (void)`	`int main (void)`
`{`	`{`
`vafunction( "", 1., 2., 3., 4., 5., 6., 7., 8., 9. );`	`vafunction( "", 1., 2., 3., 4., 5., 6., 7., 8., 9. );`
`exit(0);`	`exit(0);`
`return 0;`	`return 0;`
`}`	`}`

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.