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