Merge branch 'gawk-4.1-stable'

1 files changed, 12 insertions, 3 deletions

diff --git a/node.c b/node.c
index a5e06cd3..b9c751dd 100644
--- a/node.c
+++ b/node.c
@@ -138,11 +138,20 @@ r_force_number(NODE *n)
 		ptr++;
 	*cpend = save;
 finish:
-	if (errno == 0 && ptr == cpend) {
-		n->flags |= newflags;
-		n->flags |= NUMCUR;
+	if (errno == 0) {
+		if (ptr == cpend) {
+			n->flags |= newflags;
+			n->flags |= NUMCUR;
+		}
+		/* else keep the leading numeric value without updating flags */
 	} else {
 		errno = 0;
+		/*
+		 * N.B. For subnormal values, strtod may return the
+		 * floating-point representation while setting errno to ERANGE.
+		 * We force the numeric value to 0 in such cases.
+		 */
+		n->numbr = 0;
 	}
 
 	return n;