public inbox for gcc-bugs@sourceware.org
help / color / mirror / Atom feed
* [Bug fortran/14565] New: [gfortran] formatted write to an un-opened unit causes a segv
@ 2004-03-13 2:14 bdavis9659 at comcast dot net
2004-03-13 18:55 ` [Bug libfortran/14565] " pinskia at gcc dot gnu dot org
` (4 more replies)
0 siblings, 5 replies; 6+ messages in thread
From: bdavis9659 at comcast dot net @ 2004-03-13 2:14 UTC (permalink / raw)
To: gcc-bugs
short example to demonstrate:
WRITE(99,100) 1
100 FORMAT(I4)
END
$ gfortran x.f
$ ./a.out
Segmentation fault (core dumped)
$ g77 x.f
$ ./a.out
$ cat fort.99
1
$ gfortran --version
GNU Fortran 95 (GCC 3.5-tree-ssa 20040311 (merged 20040307))
--
Summary: [gfortran] formatted write to an un-opened unit causes
a segv
Product: gcc
Version: tree-ssa
Status: UNCONFIRMED
Severity: normal
Priority: P2
Component: fortran
AssignedTo: unassigned at gcc dot gnu dot org
ReportedBy: bdavis9659 at comcast dot net
CC: gcc-bugs at gcc dot gnu dot org
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=14565
^ permalink raw reply [flat|nested] 6+ messages in thread
* [Bug libfortran/14565] [gfortran] formatted write to an un-opened unit causes a segv
2004-03-13 2:14 [Bug fortran/14565] New: [gfortran] formatted write to an un-opened unit causes a segv bdavis9659 at comcast dot net
@ 2004-03-13 18:55 ` pinskia at gcc dot gnu dot org
2004-03-16 1:34 ` pinskia at gcc dot gnu dot org
` (3 subsequent siblings)
4 siblings, 0 replies; 6+ messages in thread
From: pinskia at gcc dot gnu dot org @ 2004-03-13 18:55 UTC (permalink / raw)
To: gcc-bugs
------- Additional Comments From pinskia at gcc dot gnu dot org 2004-03-13 18:55 -------
Confirmed.
Here is the backtrace:
#0 0x00000000 in ?? ()
Cannot access memory at address 0x0
Cannot access memory at address 0x0
#1 0x0015fadc in _gfortran_transfer_integer (p=0xbffffbd8, kind=4) at /Users/pinskia/src/gcc-tree-
ssa/gcc/libgfortran/io/transfer.c:743
#2 0x00001d2c in MAIN__ ()
#3 0x00001d5c in main (argc=1, argv=0xbffffbd8) at /Users/pinskia/src/gcc-tree-ssa/gcc/
libgfortran/fmain.c:18
--
What |Removed |Added
----------------------------------------------------------------------------
Status|UNCONFIRMED |NEW
Component|fortran |libfortran
Ever Confirmed| |1
Last reconfirmed|0000-00-00 00:00:00 |2004-03-13 18:55:27
date| |
Target Milestone|--- |tree-ssa
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=14565
^ permalink raw reply [flat|nested] 6+ messages in thread
* [Bug libfortran/14565] [gfortran] formatted write to an un-opened unit causes a segv
2004-03-13 2:14 [Bug fortran/14565] New: [gfortran] formatted write to an un-opened unit causes a segv bdavis9659 at comcast dot net
2004-03-13 18:55 ` [Bug libfortran/14565] " pinskia at gcc dot gnu dot org
@ 2004-03-16 1:34 ` pinskia at gcc dot gnu dot org
2004-03-26 15:24 ` pinskia at gcc dot gnu dot org
` (2 subsequent siblings)
4 siblings, 0 replies; 6+ messages in thread
From: pinskia at gcc dot gnu dot org @ 2004-03-16 1:34 UTC (permalink / raw)
To: gcc-bugs
------- Additional Comments From pinskia at gcc dot gnu dot org 2004-03-16 01:34 -------
The problem is transfer is NULL to begin with, one way of fixing this is to make a transfer
for when something has not been opened yet.
--
What |Removed |Added
----------------------------------------------------------------------------
Last reconfirmed|2004-03-13 18:55:27 |2004-03-16 01:34:15
date| |
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=14565
^ permalink raw reply [flat|nested] 6+ messages in thread
* [Bug libfortran/14565] [gfortran] formatted write to an un-opened unit causes a segv
2004-03-13 2:14 [Bug fortran/14565] New: [gfortran] formatted write to an un-opened unit causes a segv bdavis9659 at comcast dot net
2004-03-13 18:55 ` [Bug libfortran/14565] " pinskia at gcc dot gnu dot org
2004-03-16 1:34 ` pinskia at gcc dot gnu dot org
@ 2004-03-26 15:24 ` pinskia at gcc dot gnu dot org
2004-04-01 1:13 ` cvs-commit at gcc dot gnu dot org
2004-04-01 1:31 ` pbrook at gcc dot gnu dot org
4 siblings, 0 replies; 6+ messages in thread
From: pinskia at gcc dot gnu dot org @ 2004-03-26 15:24 UTC (permalink / raw)
To: gcc-bugs
------- Additional Comments From pinskia at gcc dot gnu dot org 2004-03-26 15:24 -------
Patch here: <http://gcc.gnu.org/ml/gcc-patches/2004-03/msg02163.html>. Thanks for the bug and
the patch.
--
What |Removed |Added
----------------------------------------------------------------------------
Keywords| |patch
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=14565
^ permalink raw reply [flat|nested] 6+ messages in thread
* [Bug libfortran/14565] [gfortran] formatted write to an un-opened unit causes a segv
2004-03-13 2:14 [Bug fortran/14565] New: [gfortran] formatted write to an un-opened unit causes a segv bdavis9659 at comcast dot net
` (2 preceding siblings ...)
2004-03-26 15:24 ` pinskia at gcc dot gnu dot org
@ 2004-04-01 1:13 ` cvs-commit at gcc dot gnu dot org
2004-04-01 1:31 ` pbrook at gcc dot gnu dot org
4 siblings, 0 replies; 6+ messages in thread
From: cvs-commit at gcc dot gnu dot org @ 2004-04-01 1:13 UTC (permalink / raw)
To: gcc-bugs
------- Additional Comments From cvs-commit at gcc dot gnu dot org 2004-04-01 01:13 -------
Subject: Bug 14565
CVSROOT: /cvs/gcc
Module name: gcc
Branch: tree-ssa-20020619-branch
Changes by: pbrook@gcc.gnu.org 2004-04-01 01:13:33
Modified files:
gcc/testsuite : ChangeLog.tree-ssa
libgfortran : ChangeLog
libgfortran/io : io.h open.c rewind.c transfer.c
Log message:
PR gfortran/14565
* io/open.c (new_unit),
* io/io.h : new_unit is now visible
* io/transfer.c (data_transfer_init): open unit if no OPEN statement.
* io/transfer.c (data_transfer_init): remove compile warnings.
* io/rewind.c (st_rewind): ftruncate if writing.
testsuite
* gfortran.fortran-torture/execute/unopened_unit_1.f90: New test.
Patches:
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/gcc/testsuite/ChangeLog.tree-ssa.diff?cvsroot=gcc&only_with_tag=tree-ssa-20020619-branch&r1=1.1.2.203&r2=1.1.2.204
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/libgfortran/ChangeLog.diff?cvsroot=gcc&only_with_tag=tree-ssa-20020619-branch&r1=1.1.2.35&r2=1.1.2.36
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/libgfortran/io/io.h.diff?cvsroot=gcc&only_with_tag=tree-ssa-20020619-branch&r1=1.1.2.6&r2=1.1.2.7
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/libgfortran/io/open.c.diff?cvsroot=gcc&only_with_tag=tree-ssa-20020619-branch&r1=1.1.2.5&r2=1.1.2.6
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/libgfortran/io/rewind.c.diff?cvsroot=gcc&only_with_tag=tree-ssa-20020619-branch&r1=1.1.2.2&r2=1.1.2.3
http://gcc.gnu.org/cgi-bin/cvsweb.cgi/gcc/libgfortran/io/transfer.c.diff?cvsroot=gcc&only_with_tag=tree-ssa-20020619-branch&r1=1.1.2.9&r2=1.1.2.10
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=14565
^ permalink raw reply [flat|nested] 6+ messages in thread
* [Bug libfortran/14565] [gfortran] formatted write to an un-opened unit causes a segv
2004-03-13 2:14 [Bug fortran/14565] New: [gfortran] formatted write to an un-opened unit causes a segv bdavis9659 at comcast dot net
` (3 preceding siblings ...)
2004-04-01 1:13 ` cvs-commit at gcc dot gnu dot org
@ 2004-04-01 1:31 ` pbrook at gcc dot gnu dot org
4 siblings, 0 replies; 6+ messages in thread
From: pbrook at gcc dot gnu dot org @ 2004-04-01 1:31 UTC (permalink / raw)
To: gcc-bugs
------- Additional Comments From pbrook at gcc dot gnu dot org 2004-04-01 01:31 -------
Fixed.
--
What |Removed |Added
----------------------------------------------------------------------------
Status|NEW |RESOLVED
Resolution| |FIXED
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=14565
^ permalink raw reply [flat|nested] 6+ messages in thread
end of thread, other threads:[~2004-04-01 1:31 UTC | newest]
Thread overview: 6+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2004-03-13 2:14 [Bug fortran/14565] New: [gfortran] formatted write to an un-opened unit causes a segv bdavis9659 at comcast dot net
2004-03-13 18:55 ` [Bug libfortran/14565] " pinskia at gcc dot gnu dot org
2004-03-16 1:34 ` pinskia at gcc dot gnu dot org
2004-03-26 15:24 ` pinskia at gcc dot gnu dot org
2004-04-01 1:13 ` cvs-commit at gcc dot gnu dot org
2004-04-01 1:31 ` pbrook 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).