--- /dev/null
+extern long h7(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_h7[2][2][2][2]={{{{1,1},{1,1}},{{1,1},{1,1}}},{{{1,1},{1,1}},{{0,1},{1,1}}}};
+
+return check_arg4(h7,ret_h7);
+