(G77_hostnm_0): Fix off-by-one error

that was trashing the byte just beyond the CHARACTER*(*)
argument.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@19427 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/libf2c/libU77/hostnm_.c b/libf2c/libU77/hostnm_.c
index 8229e09..fd717b9 100644 (file)
--- 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;