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

2019-01-26  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libfortran/89020
	* io/close.c (st_close): Fix typo.

From-SVN: r268309
This commit is contained in:
Jerry DeLisle 2019-01-27 01:36:40 +00:00
parent b8f1882e87
commit 2ee43ae6d6
2 changed files with 6 additions and 1 deletions

View File

@ -1,3 +1,8 @@
2019-01-26 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/89020
* io/close.c (st_close): Fix typo.
2019-01-26 Jerry DeLisle <jvdelisle@gcc.gnu.org> 2019-01-26 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/89020 PR libfortran/89020

View File

@ -116,7 +116,7 @@ st_close (st_parameter_close *clp)
#if !HAVE_UNLINK_OPEN_FILE #if !HAVE_UNLINK_OPEN_FILE
if (path != NULL) if (path != NULL)
{ {
if (remove (u->filename)) 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, possibly in use by"
" another process"); " another process");