+ test for fc3d71bba38e2c91813b224501eef9966544e18c

tests/tbs/tb0714.pp

@@ -0,0 +1,7 @@
+var
+  s : string[20];
+begin
+  setlength(s,21);
+  if length(s)>sizeof(s)-1 then
+    halt(1);
+end.