diff --git a/tests/test/tarrconstr4.pp b/tests/test/tarrconstr4.pp
index 7be45f04d9..60a4e7e159 100644
--- a/tests/test/tarrconstr4.pp
+++ b/tests/test/tarrconstr4.pp
@@ -1,3 +1,5 @@
+{ %fail }
+
 program tarrconstr4;
 
 {$mode delphi}