From 0b91548a66b0085c12609509e639dc8d16e0cc4f Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Tue, 14 Dec 1999 16:38:38 +0000
Subject: [PATCH]  * reset also exitcode

---
 tests/tbs/tbs0185.pp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/tests/tbs/tbs0185.pp b/tests/tbs/tbs0185.pp
index 480491a5e5..7334f7ad9d 100644
--- a/tests/tbs/tbs0185.pp
+++ b/tests/tbs/tbs0185.pp
@@ -18,6 +18,7 @@ var s: String;
        begin
          Writeln('Program generates a range check error correctly');
          errorcode:=0;
+         exitcode:=0;
          erroraddr:=nil;
          close(f);
          erase(f);