re PR fortran/16455 (print the location of a missing module fatal error)

PR fortran/15455
* module.c (gfc_dump_module, gfc_use_module): Print locus
when opening of module file fails.

From-SVN: r84508

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index f8d176c2e7182fa5af114b62cea14f084ff2497d..cf1bf3b4bde52e5c6c81dfb12c85534a3a4d8be9 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,9 @@
+2004-07-11  Tobias Schlueter  <tobias.schlueter@physik.uni-muenchen.de>
+
+       PR fortran/15455
+       * module.c (gfc_dump_module, gfc_use_module): Print locus
+       when opening of module file fails.
+
 2004-07-11  Joseph S. Myers  <jsm@polyomino.org.uk>
 
        * f95-lang.c (set_block): Remove.

diff --git a/gcc/fortran/module.c b/gcc/fortran/module.c
index 33f050b91dcaee3ee417876c25f3e08ea533c03e..17254ce0f54d8c57a7220f70b62d69f9da2eab7b 100644 (file)
--- a/gcc/fortran/module.c
+++ b/gcc/fortran/module.c
@@ -3415,7 +3415,7 @@ gfc_dump_module (const char *name, int dump_flag)
 
   module_fp = fopen (filename, "w");
   if (module_fp == NULL)
-    gfc_fatal_error ("Can't open module file '%s' for writing: %s",
+    gfc_fatal_error ("Can't open module file '%s' for writing at %C: %s",
                     filename, strerror (errno));
 
   now = time (NULL);
@@ -3459,7 +3459,7 @@ gfc_use_module (void)
 
   module_fp = gfc_open_included_file (filename);
   if (module_fp == NULL)
-    gfc_fatal_error ("Can't open module file '%s' for reading: %s",
+    gfc_fatal_error ("Can't open module file '%s' for reading at %C: %s",
                     filename, strerror (errno));
 
   iomode = IO_INPUT;