This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
some varargs test programs
- To: gcc-patches at gcc dot gnu dot org
- Subject: some varargs test programs
- From: Donald Lindsay <dlindsay at cygnus dot com>
- Date: Fri, 17 Mar 2000 20:39:05 -0800 (PST)
The attached programs are for
<source>/gcc/testsuites/gcc.c-torture/execute/
and each one tests some varargs/stdargs corner case that interested me.
They're all modelled on the older va-arg-*.c tests.
Don
#include <varargs.h>
typedef int TYPE;
void vafunction (dummy, va_alist)
char *dummy;
va_dcl
{
va_list ap;
va_start(ap);
if (va_arg (ap, TYPE) != 1)
abort();
if (va_arg (ap, TYPE) != 2)
abort();
if (va_arg (ap, TYPE) != 3)
abort();
if (va_arg (ap, TYPE) != 4)
abort();
if (va_arg (ap, TYPE) != 5)
abort();
if (va_arg (ap, TYPE) != 6)
abort();
if (va_arg (ap, TYPE) != 7)
abort();
if (va_arg (ap, TYPE) != 8)
abort();
if (va_arg (ap, TYPE) != 9)
abort();
va_end(ap);
}
int main (void)
{
vafunction( "", 1, 2, 3, 4, 5, 6, 7, 8, 9 );
exit(0);
return 0;
}
#include <varargs.h>
void vafunction (dummy, va_alist)
char *dummy;
va_dcl
{
double darg;
int iarg;
int flag = 0;
int i;
va_list ap;
va_start(ap);
for (i = 1; i <= 18; i++, flag++)
{
if (flag & 1)
{
darg = va_arg (ap, double);
if (darg != (double)i)
abort();
}
else
{
iarg = va_arg (ap, int);
if (iarg != i)
abort();
}
}
va_end(ap);
}
int main (void)
{
vafunction( "",
1, 2.,
3, 4.,
5, 6.,
7, 8.,
9, 10.,
11, 12.,
13, 14.,
15, 16.,
17, 18. );
exit(0);
return 0;
}
#include <varargs.h>
typedef double TYPE;
void vafunction (dummy1, dummy2, va_alist)
TYPE dummy1, dummy2;
va_dcl
{
va_list ap;
va_start(ap);
if (dummy1 != 888.)
abort();
if (dummy2 != 999.)
abort();
if (va_arg (ap, TYPE) != 1.)
abort();
if (va_arg (ap, TYPE) != 2.)
abort();
if (va_arg (ap, TYPE) != 3.)
abort();
if (va_arg (ap, TYPE) != 4.)
abort();
if (va_arg (ap, TYPE) != 5.)
abort();
if (va_arg (ap, TYPE) != 6.)
abort();
if (va_arg (ap, TYPE) != 7.)
abort();
if (va_arg (ap, TYPE) != 8.)
abort();
if (va_arg (ap, TYPE) != 9.)
abort();
va_end(ap);
}
int main (void)
{
vafunction( 888., 999., 1., 2., 3., 4., 5., 6., 7., 8., 9. );
exit(0);
return 0;
}
#include <varargs.h>
typedef double TYPE;
void vafunction (dummy, va_alist)
char *dummy;
va_dcl
{
va_list ap;
va_start(ap);
if (va_arg (ap, TYPE) != 1.)
abort();
if (va_arg (ap, TYPE) != 2.)
abort();
if (va_arg (ap, TYPE) != 3.)
abort();
if (va_arg (ap, TYPE) != 4.)
abort();
if (va_arg (ap, TYPE) != 5.)
abort();
if (va_arg (ap, TYPE) != 6.)
abort();
if (va_arg (ap, TYPE) != 7.)
abort();
if (va_arg (ap, TYPE) != 8.)
abort();
if (va_arg (ap, TYPE) != 9.)
abort();
va_end(ap);
}
int main (void)
{
vafunction( "", 1., 2., 3., 4., 5., 6., 7., 8., 9. );
exit(0);
return 0;
}
#include <stdarg.h>
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, int) != 10)
abort ();
if (va_arg (select, int) != 11)
abort ();
if (va_arg (select, int) != 12)
abort ();
va_end (select);
}
int main ()
{
f (1., 2., 3., 4., 5., 6., 7., 8., 9., 10, 11, 12);
exit (0);
}