mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2024-12-14 04:49:56 +08:00
Code Issues Packages Projects Releases Wiki Activity

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

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

	PR libgfortran/28335
	* close.c (st_close): Revert previous patch and add comment.
	* file_position.c (st_flush): Revert previous patch and add comment.

From-SVN: r115829
This commit is contained in:
Jerry DeLisle 2006-07-31 00:15:08 +00:00
parent 8b956d3d38
commit b8d403b467
3 changed files with 9 additions and 6 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
* close.c (st_close): Revert previous patch and add comment.
* file_position.c (st_flush): Revert previous patch and add comment.
2006-07-30 Francois-Xavier Coudert <coudert@clipper.ens.fr>
* intrinsics/date_and_time.c: Add functions for GMTIME and LTIME.

5
libgfortran/io/close.c
View File

@ -102,8 +102,7 @@ st_close (st_parameter_close *clp)
unlink (path);
#endif
}
else
generate_error (&clp->common, ERROR_BAD_OPTION,
"Can't find specified UNIT in CLOSE");
/* CLOSE on unconnected unit is legal and a no-op: F95 std., 9.3.5. */
library_end ();
}

4
libgfortran/io/file_pos.c
View File

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