mirror of
https://gcc.gnu.org/git/gcc.git
synced 2025-01-02 00:43:44 +08:00
New test. Approved by rth.
From-SVN: r32126
This commit is contained in:
parent
41387ffdc6
commit
8706d596ac
@ -1,3 +1,7 @@
|
||||
Wed Feb 23 14:16:06 2000 Donald Lindsay <dlindsay@cygnus.com>
|
||||
|
||||
* execute/va-arg-12.c: New test.
|
||||
|
||||
2000-02-23 Nathan Sidwell <nathan@codesourcery.com>
|
||||
|
||||
* execute/20000223-1.c: New test.
|
||||
|
25
gcc/testsuite/gcc.c-torture/execute/va-arg-12.c
Normal file
25
gcc/testsuite/gcc.c-torture/execute/va-arg-12.c
Normal file
@ -0,0 +1,25 @@
|
||||
#include <stdarg.h>
|
||||
|
||||
/*typedef unsigned long L;*/
|
||||
typedef double L;
|
||||
void f (L p0, L p1, L p2, L p3, L p4, L p5, L p6, L p7, L p8, ...)
|
||||
{
|
||||
va_list select;
|
||||
|
||||
va_start (select, p8);
|
||||
|
||||
if (va_arg (select, L) != 10.)
|
||||
abort ();
|
||||
if (va_arg (select, L) != 11.)
|
||||
abort ();
|
||||
if (va_arg (select, L) != 0.)
|
||||
abort ();
|
||||
|
||||
va_end (select);
|
||||
}
|
||||
|
||||
int main ()
|
||||
{
|
||||
f (1., 2., 3., 4., 5., 6., 7., 8., 9., 10., 11., 0.);
|
||||
exit (0);
|
||||
}
|
Loading…
Reference in New Issue
Block a user