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:
parent
434fbc4b5b
commit
e43c3311bd
@ -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>
|
||||
|
||||
PR libgfortran/28335
|
||||
|
@ -340,7 +340,10 @@ st_flush (st_parameter_filepos *fpp)
|
||||
flush (u->s);
|
||||
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 ();
|
||||
}
|
||||
|
Loading…
Reference in New Issue
Block a user