From 74bed63e286bc510e45d07a44b9c2d822a168bf3 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Wed, 10 Apr 2024 23:01:25 +0200
Subject: [PATCH]   + test for fc3d71bba38e2c91813b224501eef9966544e18c

---
 tests/tbs/tb0714.pp | 7 +++++++
 1 file changed, 7 insertions(+)
 create mode 100644 tests/tbs/tb0714.pp

diff --git a/tests/tbs/tb0714.pp b/tests/tbs/tb0714.pp
new file mode 100644
index 0000000000..ec6d83648f
--- /dev/null
+++ b/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.