FreeChainXenon/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

re PR fortran/10197 (direct acces files not unformatted by default)

Browse source 
2003-03-24  Bud Davis  <bdavis9659@comcast.net>

	PR fortran/10197
	* libI77/open.c (f_open): A DIRECT ACCESS file is
	UNFORMATTED by default.

From-SVN: r64821
This commit is contained in:
Toon Moene 2003-03-24 21:20:20 +00:00
parent 696fe23cb6
commit c12741e91b
6 changed files with 38 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
gcc/f/ChangeLog
View file

@ -1,3 +1,8 @@
2003-03-24 Toon Moene <toon@moene.indiv.nluug.nl>
PR fortran/10197
* news.texi: Document PR fortran/10197 fixed.
Sun Mar 23 23:43:45 2003 Mark Mitchell <mark@codesourcery.com> Sun Mar 23 23:43:45 2003 Mark Mitchell <mark@codesourcery.com>
PR c++/7086 PR c++/7086

4
gcc/f/news.texi
View file

@ -11,7 +11,7 @@
@c in the standalone derivations of this file (e.g. NEWS). @c in the standalone derivations of this file (e.g. NEWS).
@set copyrights-news 1995,1996,1997,1998,1999,2000,2001,2002,2003 @set copyrights-news 1995,1996,1997,1998,1999,2000,2001,2002,2003
@set last-update-news 2003-02-20 @set last-update-news 2003-03-24
@ifset DOC-NEWS @ifset DOC-NEWS
@include root.texi @include root.texi
@ -191,6 +191,8 @@ Incorrect output with 0-based array of characters
Double complex zero ** double precision number -> NaN instead of zero Double complex zero ** double precision number -> NaN instead of zero
@item 9038 @item 9038
-ffixed-line-length-none -x f77-cpp-input gives: Warning: unknown register name line-length-none -ffixed-line-length-none -x f77-cpp-input gives: Warning: unknown register name line-length-none
@item 10197
Direct access files not unformatted by default
@end table @end table
@item @item
Richard Henderson (@email{rth@@redhat.com}) analyzed and improved the handling Richard Henderson (@email{rth@@redhat.com}) analyzed and improved the handling

5
gcc/testsuite/ChangeLog
View file

@ -1,3 +1,8 @@
2003-03-24 Bud Davis <bdavis9659@comcast.net>
PR fortran/10197
* g77.f-torture/execute/10197.f: New test.
2003-03-24 Nathan Sidwell <nathan@codesourcery.com> 2003-03-24 Nathan Sidwell <nathan@codesourcery.com>
PR c++/9898, c++/383 PR c++/9898, c++/383

15
gcc/testsuite/g77.f-torture/execute/10197.f Normal file
View file

@ -0,0 +1,15 @@
IMPLICIT NONE
LOGICAL ERROR
CHARACTER*12 FORM
DATA ERROR /.FALSE./
DATA FORM /' '/
OPEN(UNIT=60,ACCESS='DIRECT',STATUS='SCRATCH',RECL=255)
INQUIRE(UNIT=60,FORM=FORM)
IF (FORM.EQ.'UNFORMATTED') THEN
ERROR = .FALSE.
ELSE
ERROR = .TRUE.
ENDIF
CLOSE(UNIT=60)
IF (ERROR) CALL ABORT
END

6
libf2c/ChangeLog
View file

@ -1,3 +1,9 @@
2003-03-24 Bud Davis <bdavis9659@comcast.net>
PR fortran/10197
* libI77/open.c (f_open): A DIRECT ACCESS file is
UNFORMATTED by default.
Wed Mar 12 22:27:14 2003 Andreas Schwab <schwab@suse.de> Wed Mar 12 22:27:14 2003 Andreas Schwab <schwab@suse.de>
* aclocal.m4 (GLIBCPP_EXPORT_INSTALL_INFO): Avoid trailing /. in * aclocal.m4 (GLIBCPP_EXPORT_INSTALL_INFO): Avoid trailing /. in

5
libf2c/libI77/open.c
View file

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