diff options
| author | toon <toon@138bc75d-0d04-0410-961f-82ee72b054a4> | 2000-03-12 19:20:47 +0000 |
|---|---|---|
| committer | toon <toon@138bc75d-0d04-0410-961f-82ee72b054a4> | 2000-03-12 19:20:47 +0000 |
| commit | a25d35f6be24a9f7ee6b012ee5fef7b81a7ec9df (patch) | |
| tree | 2f96ba2bc116769c43eb3433f6fa7f616e56586d /libf2c/libI77/endfile.c | |
| parent | ba1acc74b3aec6098e9a3d9042f116d13f26c986 (diff) | |
| download | gcc-a25d35f6be24a9f7ee6b012ee5fef7b81a7ec9df.tar.gz | |
* libF77/configure.in: Define IEEE_COMPLEX_DIVIDE.
* libF77/[cz]_div.c: Arrange for compilation under
-DIEEE_COMPLEX_DIVIDE to make these routines
avoid calling sig_die when the denominator vanishes.
* libF77/s_rnge.c: Add casts for the case of
sizeof(ftnint) == sizeof(int) < sizeof(long).
* libI77/endfile.c: Set state to writing (b->uwrt = 1) when an
endfile statement requires copying the file
Also, supply a missing (long) cast in the sprintf call.
* libI77/sfe.c: Add #ifdef ALWAYS_FLUSH logic, for formatted I/O.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@32496 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libf2c/libI77/endfile.c')
| -rw-r--r-- | libf2c/libI77/endfile.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/libf2c/libI77/endfile.c b/libf2c/libI77/endfile.c index 0e4ac0318e9..f7a78e12555 100644 --- a/libf2c/libI77/endfile.c +++ b/libf2c/libI77/endfile.c @@ -29,7 +29,7 @@ integer f_end(alist *a) b = &f__units[a->aunit]; if(b->ufd==NULL) { char nbuf[10]; - sprintf(nbuf,"fort.%ld",a->aunit); + sprintf(nbuf,"fort.%ld",(long)a->aunit); if (tf = fopen(nbuf, f__w_mode[0])) fclose(tf); return(0); @@ -103,6 +103,7 @@ t_runc(alist *a) rewind(tf); if (copy(tf, loc, bf)) goto bad1; + b->uwrt = 1; b->urw = 2; #ifdef NON_UNIX_STDIO if (b->ufmt) { |