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

libgfortran/ChangeLog

 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
 	* io/close.c (st_close): Generate error if calls to 'remove' return
 	an error.
 

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");