@@ -1,3 +1,5 @@
+{ %FAIL }
+
procedure p(a:array of char);
begin
end;
unit tw1316;
interface
{$mode fpc}
program test_const_objects;