[Bug fortran/34654] no unformatted on internal file

[burnus at gcc dot gnu dot org]

--- 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

[burnus at gcc dot gnu dot org]

--- 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

[burnus at gcc dot gnu dot org]

--- 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

[burnus at gcc dot gnu dot org]

--- 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

[burnus at gcc dot gnu dot org]

--- 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

[jvdelisle at gcc dot gnu dot org]

--- 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

[tkoenig at gcc dot gnu dot org]

--- 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