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

diff --git a/aus_sammelwut/paulchen/ublu/ss08/abgabe/gesamt/testcases/h6.call b/aus_sammelwut/paulchen/ublu/ss08/abgabe/gesamt/testcases/h6.call
new file mode 100644
index 0000000..4b87331
--- /dev/null
+++ b/aus_sammelwut/paulchen/ublu/ss08/abgabe/gesamt/testcases/h6.call
@@ -0,0 +1,21 @@
+extern long h6(long a, long b, long c, long d);
+
+int check_arg4(long (*function)(long, long, long, long), long blubb[2][2][2][2]) {
+	int ret,a,b,c,d;
+	ret=1;
+	for(a=0;a<2;a++) {
+		for(b=0;b<2;b++) {
+			for(c=0;c<2;c++) {
+				for(d=0;d<2;d++) {
+					ret&=(function(a,b,c,d)==blubb[a][b][c][d]);
+				}
+			}
+		}
+	}
+	return ret;
+}
+
+long ret_h6[2][2][2][2]={{{{1,1},{1,0}},{{1,1},{1,1}}},{{{1,1},{1,1}},{{1,1},{1,1}}}};
+
+return check_arg4(h6,ret_h6);
+