@@ -0,0 +1,12 @@
+{ %fail }
+
+{$Mode ObjFPC}{$H+}
+procedure A(i: longint);
+begin
+end;
+ A(false);
+end.
peter