From ab33e7d8f8fbc1639e476c8d90062c69dbfea296 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Mon, 6 Aug 2001 13:03:49 +0000
Subject: [PATCH]  New test

---
 tests/webtbs/tw1433.pp | 34 ++++++++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)
 create mode 100644 tests/webtbs/tw1433.pp

diff --git a/tests/webtbs/tw1433.pp b/tests/webtbs/tw1433.pp
new file mode 100644
index 0000000000..607247d2e0
--- /dev/null
+++ b/tests/webtbs/tw1433.pp
@@ -0,0 +1,34 @@
+{ %OPT=-gh }
+{ The only problem is that we don't really get a
+  non zero exitcode if some memory is not freed PM }
+{ Source provided for Free Pascal Bug Report 1433 }
+{ Submitted by "Aleksey V. Vaneev" on  2001-03-10 }
+{ e-mail: picoder@sbis.komi.ru }
+
+{$mode objfpc}
+
+function ExitTest1: Boolean;
+var
+        aa: AnsiString;
+
+begin
+        exit (False);
+
+        aa := 'BUMBUM';
+end;
+
+function ExitTest2: Boolean;
+var
+        aa: AnsiString;
+
+begin
+        Result := False;
+        exit;
+
+        aa := 'MUBMUB';
+end;
+
+begin
+        ExitTest1;
+        ExitTest2;
+end.