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

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 10079787e754bfa3a512587ecc3c69fd1e6b3c41..0898b8ba88bc3dbc9f295c1ac5e67a2ed0b28577 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -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>
 
        PR libfortran/89020

diff --git a/libgfortran/io/close.c b/libgfortran/io/close.c
index 2b35e49c9ccd408fbc80ca5717f30d22301e8f98..7fa968faf6200de598fc104ac4e9822400950c8a 100644 (file)
--- a/libgfortran/io/close.c
+++ b/libgfortran/io/close.c
@@ -116,7 +116,7 @@ st_close (st_parameter_close *clp)
 #if !HAVE_UNLINK_OPEN_FILE
       if (path != NULL)
        {
-         if (remove (u->filename))
+         if (remove (path))
            generate_error (&clp->common, LIBERROR_OS,
                    "File cannot be deleted, possibly in use by"
                    " another process");