From ae0cde301def2938cdb42c82903c2cd26a834e8e Mon Sep 17 00:00:00 2001
From: ceriel <none@none>
Date: Mon, 27 Jan 1997 14:06:51 +0000
Subject: [PATCH] Bug fix: conversion is OK if arg = 0.0

---
 lang/m2/libm2/RealConver.mod | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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;
-- 
2.34.1