From: jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Sun, 27 Jan 2019 01:36:40 +0000 (+0000)
Subject: 2019-01-26  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=6cb6b0d1f78524943ed188d33469f3da063874fc;p=thirdparty%2Fgcc.git

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

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

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@268309 138bc75d-0d04-0410-961f-82ee72b054a4
---

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 10079787e754..0898b8ba88bc 100644
--- 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 2b35e49c9ccd..7fa968faf620 100644
--- 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");