[Bug fortran/34654] no unformatted on internal file
--- Comment #6 from burnus at gcc dot gnu dot org 2008-01-06 09:22 --- Subject: Bug 34654 Author: burnus Date: Sun Jan 6 09:21:27 2008 New Revision: 131350 URL: http://gcc.gnu.org/viewcvs?root=gccview=revrev=131350 Log: 2008-01-06 Tobias Burnus [EMAIL PROTECTED] PR fortran/34654 * io.c (check_io_constraints): Disallow unformatted I/O for internal units. 2008-01-06 Tobias Burnus [EMAIL PROTECTED] PR fortran/34654 * gfortran.dg/internal_io_unf.f90: New. Added: trunk/gcc/testsuite/gfortran.dg/internal_io_unf.f90 Modified: trunk/gcc/fortran/ChangeLog trunk/gcc/fortran/io.c trunk/gcc/testsuite/ChangeLog -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=34654
[Bug fortran/34654] no unformatted on internal file
--- Comment #7 from burnus at gcc dot gnu dot org 2008-01-06 10:02 --- FIXED on the trunk (4.3.0). -- burnus at gcc dot gnu dot org changed: What|Removed |Added Status|ASSIGNED|RESOLVED Resolution||FIXED http://gcc.gnu.org/bugzilla/show_bug.cgi?id=34654
[Bug fortran/34654] no unformatted on internal file
--- Comment #4 from burnus at gcc dot gnu dot org 2008-01-05 08:13 --- Fails for '*', e.g.: gfortran.dg/arrayio_10.f90:8.7: read(arraydata,*,iostat=iostat)tmp 1 Error: Unformatted I/O is not possible on an internal file at (1) -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=34654
[Bug fortran/34654] no unformatted on internal file
--- Comment #5 from burnus at gcc dot gnu dot org 2008-01-05 09:24 --- http://gcc.gnu.org/ml/fortran/2008-01/msg00040.html -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=34654
[Bug fortran/34654] no unformatted on internal file
--- Comment #2 from burnus at gcc dot gnu dot org 2008-01-04 22:56 --- Index: gcc/fortran/io.c === --- gcc/fortran/io.c(revision 131328) +++ gcc/fortran/io.c(working copy) @@ -2669,6 +2669,10 @@ if (condition) \ REC tag at %L is incompatible with internal file, dt-rec-where); + io_constraint (dt-format_expr == NULL, +Unformatted I/O is not possible on an internal file at %L, +dt-io_unit-where); + if (dt-namelist != NULL) { if (gfc_notify_std (GFC_STD_F2003, Fortran 2003: Internal file -- burnus at gcc dot gnu dot org changed: What|Removed |Added AssignedTo|unassigned at gcc dot gnu |burnus at gcc dot gnu dot |dot org |org Status|NEW |ASSIGNED Last reconfirmed|2008-01-03 23:28:36 |2008-01-04 22:56:51 date|| http://gcc.gnu.org/bugzilla/show_bug.cgi?id=34654
[Bug fortran/34654] no unformatted on internal file
--- Comment #3 from jvdelisle at gcc dot gnu dot org 2008-01-05 00:07 --- May I suggest: Unformatted I/O not allowed with internal unit at %L Consider this approved after regression testing passes OK -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=34654
[Bug fortran/34654] no unformatted on internal file
--- Comment #1 from tkoenig at gcc dot gnu dot org 2008-01-03 23:28 --- Confirmed, this is relatively easy to catch. -- tkoenig at gcc dot gnu dot org changed: What|Removed |Added CC||tkoenig at gcc dot gnu dot ||org Status|UNCONFIRMED |NEW Ever Confirmed|0 |1 Last reconfirmed|-00-00 00:00:00 |2008-01-03 23:28:36 date|| http://gcc.gnu.org/bugzilla/show_bug.cgi?id=34654