module.c (gfc_dump_module): Report error on unlink only if errno != ENOENT.

2008-11-25  H.J. Lu  <hongjiu.lu@intel.com>

	* module.c (gfc_dump_module): Report error on unlink only if
	errno != ENOENT.

From-SVN: r142192
This commit is contained in:
H.J. Lu 2008-11-25 15:01:41 +00:00 committed by H.J. Lu
parent bc0f8bd478
commit 5308fd74fd
2 changed files with 6 additions and 1 deletions

View File

@ -1,3 +1,8 @@
2008-11-25 H.J. Lu <hongjiu.lu@intel.com>
* module.c (gfc_dump_module): Report error on unlink only if
errno != ENOENT.
2008-11-25 Mikael Morin <mikael.morin@tele2.fr>
PR fortran/36463

View File

@ -4850,7 +4850,7 @@ gfc_dump_module (const char *name, int dump_flag)
|| memcmp (md5_old, md5_new, sizeof (md5_old)) != 0)
{
/* Module file have changed, replace the old one. */
if (unlink (filename))
if (unlink (filename) && errno != ENOENT)
gfc_fatal_error ("Can't delete module file '%s': %s", filename,
strerror (errno));
if (rename (filename_tmp, filename))