mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2024-12-17 15:39:40 +08:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
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
This commit is contained in:
Toon Moene 2002-07-10 23:17:29 +02:00 committed by Toon Moene
parent 086bbd21cd
commit 21026f495b
2 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
libf2c/ChangeLog
View File

@ -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

7
libf2c/libI77/open.c
View File

@ -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