Patch [Fortran]: Fix endfile handling (libf2c)

[toon at moene dot indiv dot nluug dot nl]

L.S.,

Here's a patch to fix http://gcc.gnu.org/ml/gcc-bugs/2000-01/msg00561.html

This patch is meant for the gcc-2_95-branch.  A more comprehensive
patch for all bug-fixes and enhancements in libf2c that David Gay made
will be supplied the coming weekend.

Mon Jan 24 20:28:35 CET 2000  David M. Gay <dmg@bell-labs.com>
	* libI77/endfile.c (t_runc): set state to writing
	(b->uwrt = 1) when an endfile statement requires copying the file.

*** libf2c/libI77/endfile.c.orig        Sun Jan 23 12:06:22 2000
--- libf2c/libI77/endfile.c     Sun Jan 23 21:10:55 2000
*************** t_runc(alist *a)
*** 104,107 ****
--- 104,108 ----
        if (copy(tf, loc, bf))
                goto bad1;
+         b->uwrt = 1;
        b->urw = 2;
  #ifdef NON_UNIX_STDIO

Note that the ChangeLog entry is for the libf2c/ChangeLog.

This was bootstrapped on m68k-next-nextstep3.  Unfortunately, I cannot
run the regression tests on this machine, because I never managed
to get dejagnu running.  However, I did run our NWP code with it,
without adverse effects.

Please await a more comprehensive patch for the trunk this weekend.

(Oh, and I still can't apply patches - in case this one will be
approved.  I'll work on that as soon as my laptop returns to service).

Thanks in advance,
Toon.