From 749f840d899f0e9430656616d38b9b7b283f116f Mon Sep 17 00:00:00 2001
From: Craig Burley <craig@jcb-sc.com>
Date: Fri, 18 Jun 1999 08:41:09 +0000
Subject: [PATCH] fix ttynam for no-ttynam case

From-SVN: r27594
---
 libf2c/ChangeLog        | 6 ++++++
 libf2c/libU77/ttynam_.c | 2 +-
 2 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/libf2c/ChangeLog b/libf2c/ChangeLog
index 00f3a65ca32..7a62c4f3327 100644
--- a/libf2c/ChangeLog
+++ b/libf2c/ChangeLog
@@ -1,3 +1,9 @@
+Fri Jun 18 11:38:07 1999  Craig Burley  <craig@jcb-sc.com>
+
+	* libU77/ttynam_.c: if !defined (HAVE_TTYNAM),
+	write all spaces into return value instead of trying
+	to return -1 from a void function.
+
 Fri Jun 18 11:22:21 1999  Craig Burley  <craig@jcb-sc.com>
 
 	Update to Netlib version of 1999-05-10:
diff --git a/libf2c/libU77/ttynam_.c b/libf2c/libU77/ttynam_.c
index cb1d1e9a35c..c7610fb0c87 100644
--- a/libf2c/libU77/ttynam_.c
+++ b/libf2c/libU77/ttynam_.c
@@ -59,6 +59,6 @@ extern void s_copy(register char *a, register char *b, ftnlen la, ftnlen lb);
   }
 #else
   errno = ENOSYS;
-  return -1;
+  s_copy (ret_val, " ", ret_val_len, 1);
 #endif
 }