diff options
| author | toon <toon@138bc75d-0d04-0410-961f-82ee72b054a4> | 2003-03-24 21:20:20 +0000 |
|---|---|---|
| committer | toon <toon@138bc75d-0d04-0410-961f-82ee72b054a4> | 2003-03-24 21:20:20 +0000 |
| commit | 67c6e557337c07f9e762fd4540a26e23d25b6345 (patch) | |
| tree | b9f050d127de9979e5f4eed1fe4b3d225e5afa2f /libf2c | |
| parent | d002cea86f1c949a13e04f3f0eef2be3b5d9e4c2 (diff) | |
| download | gcc-67c6e557337c07f9e762fd4540a26e23d25b6345.tar.gz | |
2003-03-24 Bud Davis <bdavis9659@comcast.net>
PR fortran/10197
* libI77/open.c (f_open): A DIRECT ACCESS file is
UNFORMATTED by default.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@64821 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libf2c')
| -rw-r--r-- | libf2c/ChangeLog | 6 | ||||
| -rw-r--r-- | libf2c/libI77/open.c | 5 |
2 files changed, 10 insertions, 1 deletions
diff --git a/libf2c/ChangeLog b/libf2c/ChangeLog index fab2eb7bebc..be091247888 100644 --- a/libf2c/ChangeLog +++ b/libf2c/ChangeLog @@ -1,3 +1,9 @@ +2003-03-24 Bud Davis <bdavis9659@comcast.net> + + PR fortran/10197 + * libI77/open.c (f_open): A DIRECT ACCESS file is + UNFORMATTED by default. + Wed Mar 12 22:27:14 2003 Andreas Schwab <schwab@suse.de> * aclocal.m4 (GLIBCPP_EXPORT_INSTALL_INFO): Avoid trailing /. in diff --git a/libf2c/libI77/open.c b/libf2c/libI77/open.c index 790f5d67098..ac1e00ec6de 100644 --- a/libf2c/libI77/open.c +++ b/libf2c/libI77/open.c @@ -148,7 +148,10 @@ f_open (olist * a) b->url = (int) a->orl; b->ublnk = a->oblnk && (*a->oblnk == 'z' || *a->oblnk == 'Z'); if (a->ofm == 0) - b->ufmt = 1; + if ((a->oacc) && (*a->oacc == 'D' || *a->oacc == 'd')) + b->ufmt = 0; + else + b->ufmt = 1; else if (*a->ofm == 'f' || *a->ofm == 'F') b->ufmt = 1; else |