From c7cfe4976e42c651c579b71aa4b38d7585f0368e Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sat, 15 Oct 2005 17:50:18 +0000
Subject: [PATCH] * fixed test, using := operator as type cast is now much
 stricter

git-svn-id: trunk@1386 -
---
 tests/webtbs/tw2976.pp | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/tests/webtbs/tw2976.pp b/tests/webtbs/tw2976.pp
index c0e47c18d6..df3c8585a3 100644
--- a/tests/webtbs/tw2976.pp
+++ b/tests/webtbs/tw2976.pp
@@ -9,6 +9,14 @@ Type vector=array[1..2] of double;
           end;
 
 
+operator := (x:shortint) r:pair;
+var i:longint;
+Begin
+    r.v1:=x;
+    for i:=1 to 2 do r.v2[i]:=0;
+End;
+
+
 operator := (x:double) r:pair;
 var i:longint;
 Begin