From ce69a931b07a7931fee2d26a566655332f874618 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Fri, 21 Jan 2000 11:53:20 +0000
Subject: [PATCH]  + some more

---
 tests/webtbs/tbug755.pp | 40 ++++++++++++++++++++++++++++++++++++++++
 tests/webtbs/tbug789.pp | 14 ++++++++++++++
 tests/webtbs/tbug801.pp | 12 ++++++++++++
 tests/webtbs/tbug803.pp | 15 +++++++++++++++
 4 files changed, 81 insertions(+)
 create mode 100644 tests/webtbs/tbug755.pp
 create mode 100644 tests/webtbs/tbug789.pp
 create mode 100644 tests/webtbs/tbug801.pp
 create mode 100644 tests/webtbs/tbug803.pp

diff --git a/tests/webtbs/tbug755.pp b/tests/webtbs/tbug755.pp
new file mode 100644
index 0000000000..b7eedf81e8
--- /dev/null
+++ b/tests/webtbs/tbug755.pp
@@ -0,0 +1,40 @@
+type
+  de10_eqn_vector = array [1..10] of double;
+  de10_func = function : double;
+  de10func = de10_func;
+  DE10_PHI_ARRAY = array[1..10] of double;
+  DE10phiarray = DE10_PHI_ARRAY; 
+  de10eqnvec = de10_eqn_vector;
+  de10_12_vector = array [10..12] of double; 
+  de10_13_vector = array [10..13] of double; 
+  de1012vec = de10_12_vector;
+  de1013vec = de10_13_vector;
+
+PROCEDURE Step10( VAR X : double; VAR Y :
+                     DE10_EQN_VECTOR; F10 : DE10_FUNC; VAR NEQN : INTEGER; VAR H : double; VAR
+                     EPS : double; VAR WT : DE10_EQN_VECTOR; VAR START : BOOLEAN; VAR HOLD :
+                     double; VAR K : INTEGER; VAR KOLD : INTEGER; VAR CRASH : BOOLEAN; VAR PHI :
+                     DE10_PHI_ARRAY; VAR P : DE10_EQN_VECTOR; VAR YP : DE10_EQN_VECTOR;
+                     VAR PSI : DE10_12_VECTOR; VAR ALPHA : DE10_12_VECTOR; VAR BETA :
+                     DE10_12_VECTOR; VAR SIG : DE10_13_VECTOR; VAR V : DE10_12_VECTOR; VAR W
+                     : DE10_12_VECTOR; VAR G : DE10_13_VECTOR; VAR PHASE1 : BOOLEAN; VAR NS :
+                     INTEGER; VAR NORND : BOOLEAN );
+  begin
+  end;
+
+PROCEDURE Step11( VAR X : double; VAR Y : DE10EQNVEC; F10 : DE10FUNC; VAR
+                     NEQN : INTEGER; VAR H : double; VAR EPS : double; VAR WT : DE10EQNVEC; VAR
+                     START : BOOLEAN; VAR HOLD : double; VAR K : INTEGER; VAR KOLD : INTEGER;
+                     VAR CRASH : BOOLEAN; VAR PHI : DE10PHIARRAY; VAR P : DE10EQNVEC; VAR YP
+                     : DE10EQNVEC; VAR PSI : DE1012VEC; VAR ALPHA : DE1012VEC; VAR BETA :
+                     DE1012VEC; VAR SIG : DE1013VEC; VAR V : DE1012VEC; VAR W : DE1012VEC; VAR
+                     G : DE1013VEC; VAR PHASE1 : BOOLEAN; VAR NS : INTEGER; VAR NORND :
+                     BOOLEAN ); 
+
+  begin
+  end;
+
+
+
+begin
+end. 
diff --git a/tests/webtbs/tbug789.pp b/tests/webtbs/tbug789.pp
new file mode 100644
index 0000000000..19aba4225d
--- /dev/null
+++ b/tests/webtbs/tbug789.pp
@@ -0,0 +1,14 @@
+{$MODE DELPHI}
+
+uses sysutils;
+
+procedure tt (params : array of const);
+begin
+// this call generate Access violation
+  writeln (Format ('Params test %d', params));
+end;
+
+begin
+  writeln (Format ('First test %d', [1]));
+  tt ([1]);
+end.
\ No newline at end of file
diff --git a/tests/webtbs/tbug801.pp b/tests/webtbs/tbug801.pp
new file mode 100644
index 0000000000..f5b8ba4e4e
--- /dev/null
+++ b/tests/webtbs/tbug801.pp
@@ -0,0 +1,12 @@
+program WrongHint;
+type
+  PRecord = ^TRecord;
+  TRecord = record
+  end;
+var
+  x: PRecord;
+begin
+
+  New(x);
+  Dispose(x);
+end.
\ No newline at end of file
diff --git a/tests/webtbs/tbug803.pp b/tests/webtbs/tbug803.pp
new file mode 100644
index 0000000000..49e533d2dd
--- /dev/null
+++ b/tests/webtbs/tbug803.pp
@@ -0,0 +1,15 @@
+{$MODE objfpc}
+program FileExc;
+uses SysUtils, Classes;
+var
+  f: TFileStream;
+begin
+  try
+    f := TFileStream.Create('a nonexistent file', fmOpenRead);
+  except
+    on e: Exception do begin
+      WriteLn(e.Message);
+      f.Free;
+    end;
+  end;
+end.
\ No newline at end of file