From 5d96f16f522a48eb1981d616ba38ec1b941f86df Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Fri, 21 Mar 2003 10:59:41 +0000
Subject: [PATCH]  + signal doserror equal to zero as a known problem

---
 tests/tbs/tb0432.pp | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/tests/tbs/tb0432.pp b/tests/tbs/tb0432.pp
index 32461db808..a41189ca43 100644
--- a/tests/tbs/tb0432.pp
+++ b/tests/tbs/tb0432.pp
@@ -1,3 +1,4 @@
+{ %KNOWNRUNERROR=2 On some OS invalid date are converted to valid ones, thus test fails}
 uses Dos;
 var
   f : file;
@@ -20,7 +21,10 @@ begin
   if doserror<>13 then
    begin
      Writeln('Wrong doserror');
-     halt(1);
+     if doserror=0 then
+       runerror(2)
+     else
+       halt(1);
    end;
 
 end.