New test

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: [email protected] }
+
+{$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.