X-Git-Url: http://wien.tomnetworks.com/gitweb/?p=uebersetzerbau-ss10.git;a=blobdiff_plain;f=gesamt_arm64%2Ftestmain.c;fp=gesamt_arm64%2Ftestmain.c;h=6756a641cdc58ce68f479c27e6a80d2744b33cbf;hp=0000000000000000000000000000000000000000;hb=b133cf25e9c4bf3266dcd0a5024fb815d29f3cfe;hpb=30fddf13814e2f0b621aae4d3ec0453abfb7e46e

diff --git a/gesamt_arm64/testmain.c b/gesamt_arm64/testmain.c
new file mode 100644
index 0000000..6756a64
--- /dev/null
+++ b/gesamt_arm64/testmain.c
@@ -0,0 +1,30 @@
+#include <stdio.h>
+#include <stdlib.h>
+
+extern long callchecking();
+
+#define RET return
+
+int call(void)
+{
+#include CALL
+}
+
+long labs(long);
+
+#ifdef DEFINE_G
+long g(long x, long y)
+{
+  return h(x*2, y*3)+1;
+}
+#endif
+
+int main(int argc, char *argv[])
+{
+  long r;
+  r=callchecking();
+  if(r==0 || r==1)
+    return !r;
+  return r;
+}
+