$NetBSD: patch-cf,v 1.2 2002/03/28 10:11:54 jmc Exp $

--- ../gcc-2.95.3/libf2c/libU77/hostnm_.c.orig 2000/07/26 00:19:25 1.1.1.1
+++ ../gcc-2.95.3/libf2c/libU77/hostnm_.c 2001/05/30 07:02:39 1.2
@@ -36,6 +36,7 @@
 
 #if HAVE_GETHOSTNAME
     ret = gethostname (name, Lname);
+    name[Lname - 1] = '\0';
     if (ret==0) {
 	/* Pad with blanks (assuming gethostname will make an error
            return if it can't fit in the null). */
