mirrors/gcc
1
0
Fork 0
mirror of https://gcc.gnu.org/git/gcc.git synced 2024-11-25 03:44:04 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

(G77_hostnm_0): Fix off-by-one error

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

From-SVN: r19427
This commit is contained in:
Craig Burley 1998-04-27 10:11:57 +00:00 committed by Dave Love
parent a235cdd775
commit 6b2fe0fbe4
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
libf2c/libU77/hostnm_.c
View File

@ -39,7 +39,7 @@ integer G77_hostnm_0 (char *name, ftnlen Lname)
if (ret==0) { if (ret==0) {
/* Pad with blanks (assuming gethostname will make an error /* Pad with blanks (assuming gethostname will make an error
return if it can't fit in the null). */ 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] = ' '; name[i] = ' ';
} }
return ret; return ret;