X-Git-Url: http://wien.tomnetworks.com/gitweb/?a=blobdiff_plain;f=aus_sammelwut%2Fpaulchen%2Fublu%2Fss08%2Fabgabe%2Fcodeb%2Ftestcases%2Fg4.call;fp=aus_sammelwut%2Fpaulchen%2Fublu%2Fss08%2Fabgabe%2Fcodeb%2Ftestcases%2Fg4.call;h=d8abf9daf97099f9a95508b1cf99e41c1c310dee;hb=f6171150f9e60240b256808fc31613530b21db6c;hp=0000000000000000000000000000000000000000;hpb=b82da83a0ad2014c11113818eee6bd5fb5f3445c;p=uebersetzerbau-ss10.git

diff --git a/aus_sammelwut/paulchen/ublu/ss08/abgabe/codeb/testcases/g4.call b/aus_sammelwut/paulchen/ublu/ss08/abgabe/codeb/testcases/g4.call
new file mode 100644
index 0000000..d8abf9d
--- /dev/null
+++ b/aus_sammelwut/paulchen/ublu/ss08/abgabe/codeb/testcases/g4.call
@@ -0,0 +1,18 @@
+extern long g4(long a, long b);
+
+int check_arg2(long (*function)(long, long), long blubb[2][2]) {
+	int ret,a,b;
+	ret=1;
+	for(a=0;a<2;a++) {
+		for(b=0;b<2;b++) {
+			ret&=(function(a,b)==blubb[a][b]);
+		}
+	}
+	return ret;
+}
+
+long ret_g4[2][2]={{0,1},{1,1}};
+
+return check_arg2(g4,ret_g4);
+
+