diff options
| -rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/fortran/module.c | 3 |
2 files changed, 9 insertions, 0 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index a6abbe2..003e383 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2014-08-29 Jeffrey Armstrong <jeffrey.armstrong@approximatrix.com> + + PR fortran/62215 + * module.c (gfc_dump_module): Unlink old module file before + renaming new one. + 2014-08-26 Thomas Koenig <tkoenig@gcc.gnu.org> * frontend_passes (expr_array): Replace by vec template. diff --git a/gcc/fortran/module.c b/gcc/fortran/module.c index 3d5e247..e8e8c98 100644 --- a/gcc/fortran/module.c +++ b/gcc/fortran/module.c @@ -6040,6 +6040,9 @@ gfc_dump_module (const char *name, int dump_flag) || crc_old != crc) { /* Module file have changed, replace the old one. */ + if (unlink (filename) && errno != ENOENT) + gfc_fatal_error ("Can't delete module file '%s': %s", filename, + xstrerror (errno)); if (rename (filename_tmp, filename)) gfc_fatal_error ("Can't rename module file '%s' to '%s': %s", filename_tmp, filename, xstrerror (errno)); |