From 03261851a10dd2d6900a0a00a7515a0a46fb5d76 Mon Sep 17 00:00:00 2001
From: Ranjith Kumaran <ranjith@cygnus.com>
Date: Fri, 17 Mar 2000 22:48:54 +0000
Subject: 20000317 sourceware import

---
 libgloss/testsuite/libgloss.all/varargs2.c | 48 ++++++++++++++++++++++++++++++
 1 file changed, 48 insertions(+)
 create mode 100644 libgloss/testsuite/libgloss.all/varargs2.c

(limited to 'libgloss/testsuite/libgloss.all/varargs2.c')

diff --git a/libgloss/testsuite/libgloss.all/varargs2.c b/libgloss/testsuite/libgloss.all/varargs2.c
new file mode 100644
index 000000000..9e590fcde
--- /dev/null
+++ b/libgloss/testsuite/libgloss.all/varargs2.c
@@ -0,0 +1,48 @@
+/* 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;
+}
-- 
cgit v1.2.3