public inbox for gcc-bugs@sourceware.org help / color / mirror / Atom feed
* [Bug fortran/16597] New: gfortran: bug in unformatted I/O on scratch files
@ 2004-07-16 21:07 anlauf at hep dot tu-darmstadt dot de
2004-07-17 0:58 ` [Bug libfortran/16597] " bdavis at gcc dot gnu dot org
` (3 more replies)
0 siblings, 4 replies; 5+ messages in thread
From: anlauf at hep dot tu-darmstadt dot de @ 2004-07-16 21:07 UTC (permalink / raw)
To: gcc-bugs
Hi all,
there's apparently a bug in the runtime when handling unformatted I/O on scratch
files. It reads back garbage after writing.
Sample program:
program gfbug4
implicit none
integer strlen
parameter (strlen = 4)
integer iunit, i, k
character string *4
do 10 i = 1, strlen
string(i:i) = achar (i)
10 continue
iunit = 99
open (UNIT=iunit,FORM='unformatted',ACCESS='direct',RECL=strlen)
write (iunit, rec=1) string
read (iunit, rec=1) i
close (iunit)
print *, i
open (UNIT=iunit,FORM='unformatted',ACCESS='direct',
$ STATUS='scratch',RECL=strlen)
write (iunit, rec=1) string
read (iunit, rec=1) k
close (iunit)
print *, k
if (i .eq. k) then
print *, 'O.K.'
else
print *, '*** Bug! ***'
endif
end
Result:
% ./a.out
67305985
538976288
*** Bug! ***
The first write to fort.99 and reading back works fine - it indicates that
I/O has little-endian form, but the second is just 0x20202020.
--
Summary: gfortran: bug in unformatted I/O on scratch files
Product: gcc
Version: 3.5.0
Status: UNCONFIRMED
Severity: normal
Priority: P2
Component: fortran
AssignedTo: unassigned at gcc dot gnu dot org
ReportedBy: anlauf at hep dot tu-darmstadt dot de
CC: gcc-bugs at gcc dot gnu dot org
GCC host triplet: i686-pc-linux-gnu
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=16597
^ permalink raw reply [flat|nested] 5+ messages in thread* [Bug libfortran/16597] gfortran: bug in unformatted I/O on scratch files 2004-07-16 21:07 [Bug fortran/16597] New: gfortran: bug in unformatted I/O on scratch files anlauf at hep dot tu-darmstadt dot de @ 2004-07-17 0:58 ` bdavis at gcc dot gnu dot org 2004-08-26 2:34 ` bdavis at gcc dot gnu dot org ` (2 subsequent siblings) 3 siblings, 0 replies; 5+ messages in thread From: bdavis at gcc dot gnu dot org @ 2004-07-17 0:58 UTC (permalink / raw) To: gcc-bugs ------- Additional Comments From bdavis at gcc dot gnu dot org 2004-07-17 00:58 ------- it is a run-time library bug. --bud davis -- What |Removed |Added ---------------------------------------------------------------------------- Status|UNCONFIRMED |NEW Component|fortran |libfortran Ever Confirmed| |1 Last reconfirmed|0000-00-00 00:00:00 |2004-07-17 00:58:38 date| | http://gcc.gnu.org/bugzilla/show_bug.cgi?id=16597 ^ permalink raw reply [flat|nested] 5+ messages in thread
* [Bug libfortran/16597] gfortran: bug in unformatted I/O on scratch files 2004-07-16 21:07 [Bug fortran/16597] New: gfortran: bug in unformatted I/O on scratch files anlauf at hep dot tu-darmstadt dot de 2004-07-17 0:58 ` [Bug libfortran/16597] " bdavis at gcc dot gnu dot org @ 2004-08-26 2:34 ` bdavis at gcc dot gnu dot org 2004-08-27 7:59 ` cvs-commit at gcc dot gnu dot org 2004-08-27 8:39 ` pinskia at gcc dot gnu dot org 3 siblings, 0 replies; 5+ messages in thread From: bdavis at gcc dot gnu dot org @ 2004-08-26 2:34 UTC (permalink / raw) To: gcc-bugs ------- Additional Comments From bdavis at gcc dot gnu dot org 2004-08-26 02:34 ------- proposed patch: http://gcc.gnu.org/ml/fortran/2004-08/msg00225.html -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=16597 ^ permalink raw reply [flat|nested] 5+ messages in thread
* [Bug libfortran/16597] gfortran: bug in unformatted I/O on scratch files 2004-07-16 21:07 [Bug fortran/16597] New: gfortran: bug in unformatted I/O on scratch files anlauf at hep dot tu-darmstadt dot de 2004-07-17 0:58 ` [Bug libfortran/16597] " bdavis at gcc dot gnu dot org 2004-08-26 2:34 ` bdavis at gcc dot gnu dot org @ 2004-08-27 7:59 ` cvs-commit at gcc dot gnu dot org 2004-08-27 8:39 ` pinskia at gcc dot gnu dot org 3 siblings, 0 replies; 5+ messages in thread From: cvs-commit at gcc dot gnu dot org @ 2004-08-27 7:59 UTC (permalink / raw) To: gcc-bugs ------- Additional Comments From cvs-commit at gcc dot gnu dot org 2004-08-27 07:59 ------- Subject: Bug 16597 CVSROOT: /cvs/gcc Module name: gcc Changes by: bdavis@gcc.gnu.org 2004-08-27 07:59:30 Modified files: gcc/testsuite : ChangeLog libgfortran : ChangeLog libgfortran/io : transfer.c io.h rewind.c Added files: gcc/testsuite/gfortran.dg: pr16597.f90 Log message: 2004-08-27 Bud Davis <bdavis9659@comcast.net> PR fortran/16597 * io/io.h: created typedef for unit_mode. * io/io.h (gfc_unit): added mode to unit structure. * io/transfer.c (data_transfer_init): flush if a write then read is done on a unit (direct access files). * io/rewind.c (st_rewind): Used unit mode instead of global. * gfortran.dg/pr16597.f90: New test. Patches: http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/testsuite/ChangeLog.diff?cvsroot=gcc&r1=1.4201&r2=1.4202 http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/testsuite/gfortran.dg/pr16597.f90.diff?cvsroot=gcc&r1=NONE&r2=1.1 http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/libgfortran/ChangeLog.diff?cvsroot=gcc&r1=1.67&r2=1.68 http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/libgfortran/io/transfer.c.diff?cvsroot=gcc&r1=1.12&r2=1.13 http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/libgfortran/io/io.h.diff?cvsroot=gcc&r1=1.8&r2=1.9 http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/libgfortran/io/rewind.c.diff?cvsroot=gcc&r1=1.3&r2=1.4 -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=16597 ^ permalink raw reply [flat|nested] 5+ messages in thread
* [Bug libfortran/16597] gfortran: bug in unformatted I/O on scratch files 2004-07-16 21:07 [Bug fortran/16597] New: gfortran: bug in unformatted I/O on scratch files anlauf at hep dot tu-darmstadt dot de ` (2 preceding siblings ...) 2004-08-27 7:59 ` cvs-commit at gcc dot gnu dot org @ 2004-08-27 8:39 ` pinskia at gcc dot gnu dot org 3 siblings, 0 replies; 5+ messages in thread From: pinskia at gcc dot gnu dot org @ 2004-08-27 8:39 UTC (permalink / raw) To: gcc-bugs ------- Additional Comments From pinskia at gcc dot gnu dot org 2004-08-27 08:39 ------- Fixed. -- What |Removed |Added ---------------------------------------------------------------------------- Status|NEW |RESOLVED Resolution| |FIXED Target Milestone|--- |3.5.0 http://gcc.gnu.org/bugzilla/show_bug.cgi?id=16597 ^ permalink raw reply [flat|nested] 5+ messages in thread
end of thread, other threads:[~2004-08-27 8:39 UTC | newest] Thread overview: 5+ messages (download: mbox.gz / follow: Atom feed) -- links below jump to the message on this page -- 2004-07-16 21:07 [Bug fortran/16597] New: gfortran: bug in unformatted I/O on scratch files anlauf at hep dot tu-darmstadt dot de 2004-07-17 0:58 ` [Bug libfortran/16597] " bdavis at gcc dot gnu dot org 2004-08-26 2:34 ` bdavis at gcc dot gnu dot org 2004-08-27 7:59 ` cvs-commit at gcc dot gnu dot org 2004-08-27 8:39 ` pinskia at gcc dot gnu dot org
This is a public inbox, see mirroring instructions for how to clone and mirror all data and code used for this inbox; as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).