===================================================================
RCS file: /cvs/gcc/gcc/libf2c/libI77/open.c,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -r1.20 -r1.21
--- gcc/libf2c/libI77/open.c	2002/07/10 21:17:29	1.20
+++ gcc/libf2c/libI77/open.c	2003/03/24 21:20:19	1.21
@@ -148,7 +148,10 @@
   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