open.c (f_open): Do not indicate unformatted file if record length is given without a...

2002-07-10  Toon Moene  <toon@moene.indiv.nluug.nl>

	* libI77/open.c (f_open): Do not indicate unformatted file
	if record length is given without a FORMATTED/UNFORMATTED
	specification.

From-SVN: r55380

libf2c/ChangeLog

+2002-07-10  Toon Moene  <toon@moene.indiv.nluug.nl>
+
+	* libI77/open.c (f_open): Do not indicate unformatted file
+	if record length is given without a FORMATTED/UNFORMATTED
+	specification.
+
 2002-06-25  DJ Delorie  <dj@redhat.com>
 
 	* aclocal.m4 (GLIBCPP_CONFIGURE): Split out

libf2c/libI77/open.c

@@ -148,12 +148,7 @@ f_open (olist * a)
   b->url = (int) a->orl;
   b->ublnk = a->oblnk && (*a->oblnk == 'z' || *a->oblnk == 'Z');
   if (a->ofm == 0)
-    {
-      if (b->url > 0)
-	b->ufmt = 0;
-      else
-	b->ufmt = 1;
-    }
+    b->ufmt = 1;
   else if (*a->ofm == 'f' || *a->ofm == 'F')
     b->ufmt = 1;
   else