From 133a9aa9588abbe1d670143318ca8da341771de8 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Fri, 3 Jan 2003 19:18:14 +0000
Subject: [PATCH]   * runtime check

---
 tests/webtbs/tw2306.pp | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/tests/webtbs/tw2306.pp b/tests/webtbs/tw2306.pp
index fa410b9943..852391cf79 100644
--- a/tests/webtbs/tw2306.pp
+++ b/tests/webtbs/tw2306.pp
@@ -7,10 +7,11 @@ Const LONG_STR_SIZE=4096;
 
 Type tLongStr=Object  // try to change this
                       // to Record
-        LStr:Array[1..LONG_STR_SIZE] Of Char;
+        LStr:Array[0..LONG_STR_SIZE] Of Char;
         LLength:Longint;
      End;
 
+
 Operator := (S:String) R:tLongStr;
 Begin
    R.LLength:=Length(S);
@@ -21,4 +22,12 @@ Var T:tLongStr;
 
 Begin
    T:='Hello';
+   if (T.LLength<>5) or
+      (T.LStr[1]<>'H') or
+      (T.LStr[5]<>'o') then
+    begin
+      writeln('Error!');
+      halt(1);
+    end;
+
 End.