From 45fdff56321bc2e72d67d85b7e66166a9b207179 Mon Sep 17 00:00:00 2001
From: George Rhoten <grhoten@users.noreply.github.com>
Date: Thu, 22 Feb 2001 17:16:23 +0000
Subject: [PATCH] ICU-597 AS/400 porting changes

X-SVN-Rev: 3727
---
 icu4c/source/test/intltest/tchcfmt.cpp | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/icu4c/source/test/intltest/tchcfmt.cpp b/icu4c/source/test/intltest/tchcfmt.cpp
index 899e6c97f82..156e2c3f37c 100644
--- a/icu4c/source/test/intltest/tchcfmt.cpp
+++ b/icu4c/source/test/intltest/tchcfmt.cpp
@@ -612,6 +612,17 @@ TestChoiceFormat::testValue( double val )
         return;
     }
 
+#ifdef OS400
+    /* The AS/400 will signal an underflow exception when
+     * attempting the rest of the test.  No can do.
+     * Generating values less that DBL_MIN are not allowed on AS/400
+     */
+    if (valprev == 0.0 || val == 0.0 || valnext == 0.0 ) {
+        logln("Skipping the rest of testValue(%lf) valprev=%lf valnext=%lf", val, valprev, valnext);
+        return;
+    }
+#endif
+
     /* volatile so the compiler doesn't get confused.. --srl */
     volatile double middle;  
     middle = (val + valnext) / 2.0;