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

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

diff --git a/libf2c/ChangeLog b/libf2c/ChangeLog
index b8de112a28d97e9eb5473f4ccdd8b9271281a2c5..317542deac83366b6ed1e7f286e9ebcd52d5051b 100644 (file)
--- a/libf2c/ChangeLog
+++ b/libf2c/ChangeLog
@@ -1,3 +1,9 @@
+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

diff --git a/libf2c/libI77/open.c b/libf2c/libI77/open.c
index 29e9fde282e5fb61e81b4b92807c40c6fed5eaa4..790f5d67098dc39f7be957b32cbd2e6e13c67017 100644 (file)
--- a/libf2c/libI77/open.c
+++ b/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