libc/libgloss/testsuite/libgloss.all/varargs2.c

49 lines
829 B
C

/* Oki bug report [OKI013]
Variable argments test failed.
Execution result.
val1, val2 = 1, 0
val1, val2 = 2, 0
val1, val2 = 3, 0
Note, this test case for for traditional style C code.
*/
#include <stdio.h>
#include <varargs.h>
int func();
main()
{
func(1., 2., 3.);
}
func(va_alist)
va_dcl
{
va_list p;
double val1, val2;
int j;
va_start(p);
for (j = 1; j <= 3; ++j){
dequals((double)j, va_arg(p, double));
}
va_end(p);
return (p);
}
dequals(double val1, double val2)
{
iprintf ("val1 is %d, val2 is %d\n", (int)val1, (int)val2);
if (val1 == val2)
pass ("varargs2 [OKI013]");
else
fail ("varargs2 [OKI013]");
fflush (stdout);
return;
}