git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

re PR fortran/28335 (flush() / write() statement on closed units - error?) 

2006-07-30  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libgfortran/28335
	* file_position.c (st_flush): Add clearer error when UNIT does not
	exist. Add reference to standard in comment.

From-SVN: r115835
This commit is contained in:
Jerry DeLisle 2006-07-31 01:32:38 +00:00
parent 434fbc4b5b
commit e43c3311bd
2 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
libgfortran/ChangeLog
View File

@ -1,3 +1,9 @@
2006-07-30 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/28335
* file_position.c (st_flush): Add clearer error when UNIT does not
exist. Add reference to standard in comment.
2006-07-30 Jerry DeLisle <jvdelisle@gcc.gnu.org> 2006-07-30 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/28335 PR libgfortran/28335

5
libgfortran/io/file_pos.c
View File

@ -340,7 +340,10 @@ st_flush (st_parameter_filepos *fpp)
flush (u->s); flush (u->s);
unlock_unit (u); unlock_unit (u);
} }
else
/* FLUSH on unconnected unit is illegal: F95 std., 9.3.5. */
generate_error (&fpp->common, ERROR_BAD_OPTION,
"Specified UNIT in FLUSH is not connected");
/* CLOSE on unconnected unit is legal and a no-op: F95 std., 9.3.5. */
library_end (); library_end ();
} }