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

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

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

diff --git a/libgfortran/io/close.c b/libgfortran/io/close.c
index 7fa968faf6200de598fc104ac4e9822400950c8a..1e075ea9608783c8ede62d6091b68b4a6914b3db 100644 (file)
--- a/libgfortran/io/close.c
+++ b/libgfortran/io/close.c
@@ -102,8 +102,7 @@ st_close (st_parameter_close *clp)
 
                  if (remove (u->filename))
                    generate_error (&clp->common, LIBERROR_OS,
-                           "File cannot be deleted, possibly in use by"
-                           " another process");
+                                   "File cannot be deleted");
 #else
                  path = strdup (u->filename);
 #endif
@@ -118,8 +117,7 @@ st_close (st_parameter_close *clp)
        {
          if (remove (path))
            generate_error (&clp->common, LIBERROR_OS,
-                   "File cannot be deleted, possibly in use by"
-                   " another process");
+                           "File cannot be deleted");
          free (path);
        }
 #endif