+PUNT=$EXIT_TEST_WIN
+
+## Make some shared object files to test with.
+
+build_so() (
+ echo building $1.so
+ /bin/sh ../run-compiler.sh -sbcl-pic -sbcl-shared "$1.c" -o "$1.so"
+)
+
+# We want to bail out in case any of these Unix programs fails.
+set -e
+
+cat > $TEST_FILESTEM.c <<EOF
+int summish(int x, int y) { return 1 + x + y; }
+
+int numberish = 42;
+
+int nummish(int x) { return numberish + x; }
+
+short negative_short() { return -1; }
+int negative_int() { return -2; }
+long negative_long() { return -3; }
+
+long long powish(unsigned int x, unsigned int y) {
+ long long acc = 1;
+ long long xx = (long long) x;
+ for(; y != 1; y /= 2) {
+ if (y & 1) {
+ acc *= xx;
+ y -= 1;
+ }
+ xx *= xx;
+ }
+ return xx*acc;
+}
+
+float return9th(float f1, float f2, float f3, float f4, float f5,
+ float f6, float f7, float f8, float f9, float f10,
+ float f11, float f12) {
+ return f9;
+}
+
+double return9thd(double f1, double f2, double f3, double f4, double f5,
+ double f6, double f7, double f8, double f9, double f10,
+ double f11, double f12) {
+ return f9;
+}
+
+int long_test8(int a1, int a2, int a3, int a4, int a5,
+ int a6, int a7, long long l1) {
+ return (l1 == powish(2,34));
+}