* new bug

tests/webtbf/tw2281.pp

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