From: Craig Burley <burley@gnu.org>
Date: Mon, 27 Apr 1998 10:11:57 +0000 (+0000)
Subject: (G77_hostnm_0): Fix off-by-one error
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=6b2fe0fbe437cc48ba37d48db8e0b5d9e5d6ca2e;p=gcc.git

(G77_hostnm_0): Fix off-by-one error
that was trashing the byte just beyond the CHARACTER*(*)
argument.

From-SVN: r19427
---

diff --git a/libf2c/libU77/hostnm_.c b/libf2c/libU77/hostnm_.c
index 8229e09e727..fd717b9f857 100644
--- a/libf2c/libU77/hostnm_.c
+++ b/libf2c/libU77/hostnm_.c
@@ -39,7 +39,7 @@ integer G77_hostnm_0 (char *name, ftnlen Lname)
     if (ret==0) {
 	/* Pad with blanks (assuming gethostname will make an error
            return if it can't fit in the null). */
-	for (i=strlen(name); i<=Lname; i++)
+	for (i=strlen(name); i<Lname; i++)
 	    name[i] = ' ';
     }
     return ret;