From 6b2fe0fbe437cc48ba37d48db8e0b5d9e5d6ca2e Mon Sep 17 00:00:00 2001 From: Craig Burley Date: Mon, 27 Apr 1998 10:11:57 +0000 Subject: [PATCH] (G77_hostnm_0): Fix off-by-one error that was trashing the byte just beyond the CHARACTER*(*) argument. From-SVN: r19427 --- libf2c/libU77/hostnm_.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/libf2c/libU77/hostnm_.c b/libf2c/libU77/hostnm_.c index 8229e09..fd717b9 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