From 1ebaa73b42a8614428a245d9cdfabbf26ff48f17 Mon Sep 17 00:00:00 2001
From: Dave Love <d.love@dl.ac.uk>
Date: Tue, 8 Sep 1998 15:23:16 +0000
Subject: Netlib: Mon Sep  7 19:48:51 EDT 1998   libi77: move e_wdfe from sfe.c
 to dfe.c, where it was originally. Why did it ever move to sfe.c?

git-svn-id: https://gcc.gnu.org/svn/gcc/branches/Netlib_branch@22334 138bc75d-0d04-0410-961f-82ee72b054a4
---
 libf2c/libI77/Version.c | 4 +++-
 libf2c/libI77/dfe.c     | 4 ++++
 libf2c/libI77/sfe.c     | 5 -----
 3 files changed, 7 insertions(+), 6 deletions(-)

diff --git a/libf2c/libI77/Version.c b/libf2c/libI77/Version.c
index cce58d5b04e..031c975708f 100644
--- a/libf2c/libI77/Version.c
+++ b/libf2c/libI77/Version.c
@@ -1,4 +1,4 @@
-static char junk[] = "\n@(#) LIBI77 VERSION pjw,dmg-mods 19980617\n";
+static char junk[] = "\n@(#) LIBI77 VERSION pjw,dmg-mods 19980907\n";
 
 /*
 2.01	$ format added
@@ -288,3 +288,5 @@ wrtfmt.c:
 		 floating-point numbers (containing either a decimal point
 		 or an exponent field) as errors when they appear as list
 		 input for integer data. */
+/* 7 Sept. 1998: move e_wdfe from sfe.c to dfe.c, where it was originally.
+		 Why did it ever move to sfe.c? */
diff --git a/libf2c/libI77/dfe.c b/libf2c/libI77/dfe.c
index 0199e1ae1a4..6963d5a011a 100644
--- a/libf2c/libI77/dfe.c
+++ b/libf2c/libI77/dfe.c
@@ -135,3 +135,7 @@ integer e_rdfe(Void)
 	en_fio();
 	return 0;
 }
+integer e_wdfe(Void)
+{
+	return en_fio();
+}
diff --git a/libf2c/libI77/sfe.c b/libf2c/libI77/sfe.c
index 5656aa169bf..cade56a4882 100644
--- a/libf2c/libI77/sfe.c
+++ b/libf2c/libI77/sfe.c
@@ -29,8 +29,3 @@ integer e_wsfe(Void)
 	f__fmtbuf = NULL;
 	return n;
 }
-
-integer e_wdfe(Void)
-{
-	return en_fio();
-}
-- 
cgit v1.2.3