aboutsummaryrefslogtreecommitdiff
path: root/tests/i/extern-c-variadic/program.cps
diff options
context:
space:
mode:
Diffstat (limited to 'tests/i/extern-c-variadic/program.cps')
-rw-r--r--tests/i/extern-c-variadic/program.cps11
1 files changed, 11 insertions, 0 deletions
diff --git a/tests/i/extern-c-variadic/program.cps b/tests/i/extern-c-variadic/program.cps
new file mode 100644
index 0000000..2f2ea43
--- /dev/null
+++ b/tests/i/extern-c-variadic/program.cps
@@ -0,0 +1,11 @@
+// Variadic EXTERN arguments arrive with C default promotions applied.
+INCLUDE_OBJ "lib.o"
+TYPE UChar = C_TYPE("unsigned char")
+TYPE CShort = C_TYPE("short")
+TYPE UShort = C_TYPE("unsigned short")
+TYPE CBool = C_TYPE("_Bool")
+TYPE CFloat = C_TYPE("float")
+EXTERN "C" EXTERN_FUNCTION sum_ints(C_INT, ...) RETURNS C_INT
+EXTERN "C" EXTERN_FUNCTION sum_doubles(C_INT, ...) RETURNS C_DOUBLE
+OUTPUT sum_ints((C_INT)5, (UChar)200, (CShort)-7, (UShort)65535, (CBool)TRUE, (C_CHAR)'A')
+OUTPUT sum_doubles((C_INT)2, (CFloat)1.5, (C_DOUBLE)2.25)