public inbox for gcc-bugs@sourceware.org
help / color / mirror / Atom feed
* [Bug libfortran/23598] New: iostat handling after library error return
@ 2005-08-27 22:12 tkoenig at gcc dot gnu dot org
2005-08-28 11:05 ` [Bug libfortran/23598] " tkoenig at gcc dot gnu dot org
` (4 more replies)
0 siblings, 5 replies; 6+ messages in thread
From: tkoenig at gcc dot gnu dot org @ 2005-08-27 22:12 UTC (permalink / raw)
To: gcc-bugs
$ cat tst.f90
program main
real :: a
integer :: ios
open (10, pad='no')
write (10, '(A)') '1','1'
rewind (10)
read (10,'(I2)',iostat=ios) i
ios = -4321
read (10, '(I1)', iostat=ios) i
print *,ios
end program main
$ gfortran tst.f90
$ ./a.out
-4321
Here's a patch:
Index: lock.c
===================================================================
RCS file: /cvs/gcc/gcc/libgfortran/io/lock.c,v
retrieving revision 1.8
diff -c -p -r1.8 lock.c
*** lock.c 17 Aug 2005 02:48:56 -0000 1.8
--- lock.c 27 Aug 2005 22:10:48 -0000
*************** library_start (void)
*** 54,60 ****
stay within the library. */
g.in_library = 1;
! if (ioparm.iostat != NULL && ioparm.library_return == LIBRARY_OK)
*ioparm.iostat = ERROR_OK;
ioparm.library_return = LIBRARY_OK;
--- 54,60 ----
stay within the library. */
g.in_library = 1;
! if (ioparm.iostat != NULL)
*ioparm.iostat = ERROR_OK;
ioparm.library_return = LIBRARY_OK;
--
Summary: iostat handling after library error return
Product: gcc
Version: 4.1.0
Status: UNCONFIRMED
Keywords: wrong-code
Severity: normal
Priority: P2
Component: libfortran
AssignedTo: unassigned at gcc dot gnu dot org
ReportedBy: tkoenig at gcc dot gnu dot org
CC: gcc-bugs at gcc dot gnu dot org
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=23598
^ permalink raw reply [flat|nested] 6+ messages in thread
* [Bug libfortran/23598] iostat handling after library error return
2005-08-27 22:12 [Bug libfortran/23598] New: iostat handling after library error return tkoenig at gcc dot gnu dot org
@ 2005-08-28 11:05 ` tkoenig at gcc dot gnu dot org
2005-08-29 20:44 ` cvs-commit at gcc dot gnu dot org
` (3 subsequent siblings)
4 siblings, 0 replies; 6+ messages in thread
From: tkoenig at gcc dot gnu dot org @ 2005-08-28 11:05 UTC (permalink / raw)
To: gcc-bugs
--
What |Removed |Added
----------------------------------------------------------------------------
AssignedTo|unassigned at gcc dot gnu |tkoenig at gcc dot gnu dot
|dot org |org
URL| |http://gcc.gnu.org/ml/fortra
| |n/2005-08/msg00467.html
Status|UNCONFIRMED |ASSIGNED
Ever Confirmed| |1
Keywords| |patch
Last reconfirmed|0000-00-00 00:00:00 |2005-08-28 11:05:04
date| |
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=23598
^ permalink raw reply [flat|nested] 6+ messages in thread
* [Bug libfortran/23598] iostat handling after library error return
2005-08-27 22:12 [Bug libfortran/23598] New: iostat handling after library error return tkoenig at gcc dot gnu dot org
2005-08-28 11:05 ` [Bug libfortran/23598] " tkoenig at gcc dot gnu dot org
@ 2005-08-29 20:44 ` cvs-commit at gcc dot gnu dot org
2005-08-29 20:51 ` cvs-commit at gcc dot gnu dot org
` (2 subsequent siblings)
4 siblings, 0 replies; 6+ messages in thread
From: cvs-commit at gcc dot gnu dot org @ 2005-08-29 20:44 UTC (permalink / raw)
To: gcc-bugs
------- Additional Comments From cvs-commit at gcc dot gnu dot org 2005-08-29 20:40 -------
Subject: Bug 23598
CVSROOT: /cvs/gcc
Module name: gcc
Changes by: tkoenig@gcc.gnu.org 2005-08-29 20:40:02
Modified files:
libgfortran : ChangeLog
libgfortran/io : lock.c
gcc/testsuite : ChangeLog
Added files:
gcc/testsuite/gfortran.dg: iostat_1.f90
Log message:
2005-08-29 Thomas Koenig <Thomas.Koenig@online.de>
PR libfortran/23598
* io/lock.c(library_start): If ioparm.iostat is present, clear
it unconditionally.
2005-02-29 Thomas Koenig <Thomas.Koenig@online.de>
PR libfortran/23598
* gfortran.dg/iostat_1.f90: New test.
Patches:
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/libgfortran/ChangeLog.diff?cvsroot=gcc&r1=1.287&r2=1.288
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/libgfortran/io/lock.c.diff?cvsroot=gcc&r1=1.8&r2=1.9
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/testsuite/ChangeLog.diff?cvsroot=gcc&r1=1.5978&r2=1.5979
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/testsuite/gfortran.dg/iostat_1.f90.diff?cvsroot=gcc&r1=NONE&r2=1.1
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=23598
^ permalink raw reply [flat|nested] 6+ messages in thread
* [Bug libfortran/23598] iostat handling after library error return
2005-08-27 22:12 [Bug libfortran/23598] New: iostat handling after library error return tkoenig at gcc dot gnu dot org
2005-08-28 11:05 ` [Bug libfortran/23598] " tkoenig at gcc dot gnu dot org
2005-08-29 20:44 ` cvs-commit at gcc dot gnu dot org
@ 2005-08-29 20:51 ` cvs-commit at gcc dot gnu dot org
2005-08-29 20:57 ` tkoenig at gcc dot gnu dot org
2005-08-29 20:59 ` pinskia at gcc dot gnu dot org
4 siblings, 0 replies; 6+ messages in thread
From: cvs-commit at gcc dot gnu dot org @ 2005-08-29 20:51 UTC (permalink / raw)
To: gcc-bugs
------- Additional Comments From cvs-commit at gcc dot gnu dot org 2005-08-29 20:48 -------
Subject: Bug 23598
CVSROOT: /cvs/gcc
Module name: gcc
Branch: gcc-4_0-branch
Changes by: tkoenig@gcc.gnu.org 2005-08-29 20:48:38
Modified files:
libgfortran : ChangeLog
libgfortran/io : lock.c
gcc/testsuite : ChangeLog
Added files:
gcc/testsuite/gfortran.dg: iostat_1.f90
Log message:
2005-08-29 Thomas Koenig <Thomas.Koenig@online.de>
PR libfortran/23598
* io/lock.c(library_start): If ioparm.iostat is present, clear
it unconditionally.
2005-02-29 Thomas Koenig <Thomas.Koenig@online.de>
PR libfortran/23598
* gfortran.dg/iostat_1.f90: New test.
Patches:
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/libgfortran/ChangeLog.diff?cvsroot=gcc&only_with_tag=gcc-4_0-branch&r1=1.163.2.80&r2=1.163.2.81
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/libgfortran/io/lock.c.diff?cvsroot=gcc&only_with_tag=gcc-4_0-branch&r1=1.5.12.1&r2=1.5.12.2
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/testsuite/ChangeLog.diff?cvsroot=gcc&only_with_tag=gcc-4_0-branch&r1=1.5084.2.359&r2=1.5084.2.360
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/testsuite/gfortran.dg/iostat_1.f90.diff?cvsroot=gcc&only_with_tag=gcc-4_0-branch&r1=NONE&r2=1.1.2.1
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=23598
^ permalink raw reply [flat|nested] 6+ messages in thread
* [Bug libfortran/23598] iostat handling after library error return
2005-08-27 22:12 [Bug libfortran/23598] New: iostat handling after library error return tkoenig at gcc dot gnu dot org
` (2 preceding siblings ...)
2005-08-29 20:51 ` cvs-commit at gcc dot gnu dot org
@ 2005-08-29 20:57 ` tkoenig at gcc dot gnu dot org
2005-08-29 20:59 ` pinskia at gcc dot gnu dot org
4 siblings, 0 replies; 6+ messages in thread
From: tkoenig at gcc dot gnu dot org @ 2005-08-29 20:57 UTC (permalink / raw)
To: gcc-bugs
------- Additional Comments From tkoenig at gcc dot gnu dot org 2005-08-29 20:56 -------
Fixed.
--
What |Removed |Added
----------------------------------------------------------------------------
Status|ASSIGNED |RESOLVED
Resolution| |FIXED
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=23598
^ permalink raw reply [flat|nested] 6+ messages in thread
* [Bug libfortran/23598] iostat handling after library error return
2005-08-27 22:12 [Bug libfortran/23598] New: iostat handling after library error return tkoenig at gcc dot gnu dot org
` (3 preceding siblings ...)
2005-08-29 20:57 ` tkoenig at gcc dot gnu dot org
@ 2005-08-29 20:59 ` pinskia at gcc dot gnu dot org
4 siblings, 0 replies; 6+ messages in thread
From: pinskia at gcc dot gnu dot org @ 2005-08-29 20:59 UTC (permalink / raw)
To: gcc-bugs
--
What |Removed |Added
----------------------------------------------------------------------------
Target Milestone|--- |4.0.2
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=23598
^ permalink raw reply [flat|nested] 6+ messages in thread
end of thread, other threads:[~2005-08-29 20:58 UTC | newest]
Thread overview: 6+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2005-08-27 22:12 [Bug libfortran/23598] New: iostat handling after library error return tkoenig at gcc dot gnu dot org
2005-08-28 11:05 ` [Bug libfortran/23598] " tkoenig at gcc dot gnu dot org
2005-08-29 20:44 ` cvs-commit at gcc dot gnu dot org
2005-08-29 20:51 ` cvs-commit at gcc dot gnu dot org
2005-08-29 20:57 ` tkoenig at gcc dot gnu dot org
2005-08-29 20:59 ` 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).