OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR libfortran/89020 (close(status='DELETE') does not remove file)

Browse Source 
2019-01-27  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libfortran/89020
	* io/close.c (st_close): Simplify text of error message to not
	presume a specific cause of failure to remove file.

From-SVN: r268319
This commit is contained in:
Jerry DeLisle 2019-01-27 19:42:34 +00:00
parent 683ccd0568
commit 9faf6e7018
2 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
libgfortran/ChangeLog
View File

@ -1,3 +1,9 @@
2019-01-27 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/89020
* io/close.c (st_close): Simplify text of error message to not
presume a specific cause of failure to remove file.
2019-01-26 Jerry DeLisle <jvdelisle@gcc.gnu.org> 2019-01-26 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/89020 PR libfortran/89020

6
libgfortran/io/close.c
View File

@ -102,8 +102,7 @@ st_close (st_parameter_close *clp)
if (remove (u->filename)) if (remove (u->filename))
generate_error (&clp->common, LIBERROR_OS, generate_error (&clp->common, LIBERROR_OS,
"File cannot be deleted, possibly in use by" "File cannot be deleted");
" another process");
#else #else
path = strdup (u->filename); path = strdup (u->filename);
#endif #endif
@ -118,8 +117,7 @@ st_close (st_parameter_close *clp)
{ {
if (remove (path)) if (remove (path))
generate_error (&clp->common, LIBERROR_OS, generate_error (&clp->common, LIBERROR_OS,
"File cannot be deleted, possibly in use by" "File cannot be deleted");
" another process");
free (path); free (path);
} }
#endif #endif