From: ceriel <none@none>
Date: Mon, 27 Jan 1997 14:06:51 +0000 (+0000)
Subject: Bug fix: conversion is OK if arg = 0.0
X-Git-Tag: release-5-5~34
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=ae0cde301def2938cdb42c82903c2cd26a834e8e;p=ack.git

Bug fix: conversion is OK if arg = 0.0
---

diff --git a/lang/m2/libm2/RealConver.mod b/lang/m2/libm2/RealConver.mod
index 8afa2d756..01327f351 100644
--- a/lang/m2/libm2/RealConver.mod
+++ b/lang/m2/libm2/RealConver.mod
@@ -57,7 +57,7 @@ IMPLEMENTATION MODULE RealConversions;
 	sign := r < 0.0D;
 	IF sign THEN r := -r END;
 	ok := TRUE;
-	IF NOT (r / 10.0D < r) THEN
+	IF (r <> 0.0D) AND NOT (r / 10.0D < r) THEN
 		(* assume Nan or Infinity *)
 		r := 0.0D;
 		ok := FALSE;