From 0c99cac9ceff8c9d7e5d958bc666c4b170dffd6a Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Mon, 10 Jan 2000 00:40:27 +0000
Subject: [PATCH]  + new bugs

---
 tests/webtbs/tbug769.pp |  9 +++++++++
 tests/webtbs/tbug772.pp | 28 ++++++++++++++++++++++++++++
 tests/webtbs/tbug776.pp | 16 ++++++++++++++++
 tests/webtbs/tbug784.pp | 25 +++++++++++++++++++++++++
 4 files changed, 78 insertions(+)
 create mode 100644 tests/webtbs/tbug769.pp
 create mode 100644 tests/webtbs/tbug772.pp
 create mode 100644 tests/webtbs/tbug776.pp
 create mode 100644 tests/webtbs/tbug784.pp

diff --git a/tests/webtbs/tbug769.pp b/tests/webtbs/tbug769.pp
new file mode 100644
index 0000000000..6cadf19112
--- /dev/null
+++ b/tests/webtbs/tbug769.pp
@@ -0,0 +1,9 @@
+
+Program test;
+
+var x,y:integer;
+
+begin
+y:=5;
+for x:=0 to 10 do if x<y then writeln(x);
+end.
diff --git a/tests/webtbs/tbug772.pp b/tests/webtbs/tbug772.pp
new file mode 100644
index 0000000000..877e36b0dd
--- /dev/null
+++ b/tests/webtbs/tbug772.pp
@@ -0,0 +1,28 @@
+type tFoo = object
+       a:integer;
+       constructor Create;
+       procedure ReadA;
+       procedure ShowA;
+     end;
+
+constructor tFoo.Create;
+begin
+  a:=0;
+end;
+
+procedure tFoo.ReadA;
+begin
+  write('a: '); Readln(a);
+end;
+
+procedure tFoo.ShowA;
+begin
+  writeln('A=',a);
+end;
+
+var Foo:tFoo;
+begin
+  Foo.Create;
+  Foo.ReadA; {this leaves Foo.a untouched, but it should'nt}
+  Foo.ShowA;
+end.
diff --git a/tests/webtbs/tbug776.pp b/tests/webtbs/tbug776.pp
new file mode 100644
index 0000000000..fe918a1102
--- /dev/null
+++ b/tests/webtbs/tbug776.pp
@@ -0,0 +1,16 @@
+{$mode objfpc}
+uses sysutils;
+ var i:integer;
+     j : record
+        x,y : longint;
+     end;
+begin
+ i:=0;
+ format('%d', [i]);
+ with j do
+   begin
+     x:=2;
+     y:=4;
+     Writeln('j.x=',x,' j.y=',y);
+   end;
+end.
\ No newline at end of file
diff --git a/tests/webtbs/tbug784.pp b/tests/webtbs/tbug784.pp
new file mode 100644
index 0000000000..fd4cab171f
--- /dev/null
+++ b/tests/webtbs/tbug784.pp
@@ -0,0 +1,25 @@
+program BigRange;
+
+const
+  Limit   = 100000000; { Hundred millions }
+  One     =         1;
+
+var
+  Huge: longint;
+
+begin
+    Huge := Limit + One;
+
+    writeln(One, ' is the lower bound');
+    writeln(Limit, ' is the upper bound');
+
+    if Limit in [One .. Limit] then
+      writeln(Limit, ' is within the range')
+    else
+      writeln(Limit, ' is out of the range');
+
+    if Huge in [One .. Limit] then
+      writeln(Huge, ' is within the range')
+    else
+      writeln(Huge, ' is out of the range')
+end.