* added missing { %fail }

git-svn-id: trunk@19051 -

tests/test/tarrconstr4.pp

@@ -1,3 +1,5 @@
+{ %fail }
+
 program tarrconstr4;
 
 {$mode delphi}