From 502dfb0aa3c7ce8d7a4946a8bdde8e79e48248ef Mon Sep 17 00:00:00 2001
From: Alexander Kabaev <kan@FreeBSD.org>
Date: Jun 03 2005 03:30:16 +0000
Subject: Gcc 3.4.4 F77 runtime support bits.


---

diff --git a/contrib/libf2c/ChangeLog b/contrib/libf2c/ChangeLog
index 8dd3866..172c426 100644
--- a/contrib/libf2c/ChangeLog
+++ b/contrib/libf2c/ChangeLog
@@ -1,3 +1,20 @@
+2005-05-19  Release Manager
+
+	* GCC 3.4.4 released.
+
+2005-01-05  Eric Botcazou  <ebotcazou@libertysurf.fr>
+
+	PR libf2c/17636
+	* libI77/err.c (f__nowwriting): Call fseek if end-of-file.
+
+2004-11-04  Release Manager
+
+	* GCC 3.4.3 released.
+
+2004-09-06  Release Manager
+
+	* GCC 3.4.2 released.
+
 2004-07-01  Release Manager
 
 	* GCC 3.4.1 released.
diff --git a/contrib/libf2c/libI77/err.c b/contrib/libf2c/libI77/err.c
index 1a204e8..d643d3b 100644
--- a/contrib/libf2c/libI77/err.c
+++ b/contrib/libf2c/libI77/err.c
@@ -239,7 +239,13 @@ f__nowwriting (unit * x)
   extern char *f__w_mode[];
 
   if (x->urw & 2)
-    goto done;
+    {
+      /* Not required according to C99 7.19.5.3, but
+	 this really helps on Solaris.  */
+      if (feof (x->ufd))
+	FSEEK (x->ufd, 0, SEEK_END);
+      goto done;
+    }
   if (!x->ufnm)
     goto cantwrite;
   ufmt = x->url ? 0 : x->ufmt;