From c12741e91b24e423fbc0ce2ec6e74d83c85564f9 Mon Sep 17 00:00:00 2001 From: Toon Moene Date: Mon, 24 Mar 2003 21:20:20 +0000 Subject: re PR fortran/10197 (direct acces files not unformatted by default) 2003-03-24 Bud Davis PR fortran/10197 * libI77/open.c (f_open): A DIRECT ACCESS file is UNFORMATTED by default. From-SVN: r64821 --- libf2c/libI77/open.c | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'libf2c/libI77') diff --git a/libf2c/libI77/open.c b/libf2c/libI77/open.c index 790f5d6..ac1e00e 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 -- cgit v1.1