diff --git a/tests/tbs/tb0411.pp b/tests/tbs/tb0411.pp
new file mode 100644
index 0000000000..ee8a72791a
--- /dev/null
+++ b/tests/tbs/tb0411.pp
@@ -0,0 +1,14 @@
+{ %version=1.1}
+
+type
+   ta = array of longint;
+
+function f : ta;
+  begin
+     setlength(result,10);
+  end;
+
+begin
+   f[1]:=1;
+end.
+