From 6d03f2807a94366b797af7c01350beda4fd19b3b Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sun, 27 Dec 2020 13:19:05 +0000
Subject: [PATCH]   * made exit codes unique

git-svn-id: trunk@47860 -
---
 tests/test/tprec8.pp | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/tests/test/tprec8.pp b/tests/test/tprec8.pp
index 52d15734f3..0ad2e93692 100644
--- a/tests/test/tprec8.pp
+++ b/tests/test/tprec8.pp
@@ -40,19 +40,19 @@ begin
     halt(1);
   r.g := 5;
   if (r.g <> 5) then
-    halt(1);
+    halt(2);
   r.h := 65535;
   if (r.h <> 65535) then
-    halt(1);
+    halt(3);
   r.k := true;
   if not (r.k) then
-    halt(1);
+    halt(4);
   r.j := false;
   if r.j then
-    halt(1);
+    halt(5);
   if b <> 0 then
-    halt(1);
+    halt(6);
   if sizeof(tr) <> 13 then
-    halt(2);
+    halt(7);
 end.