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
This commit is contained in:
parent
6ac4b58e49
commit
87bdc5f8fd
|
@ -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.
|
||||
|
|
|
@ -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;
|
||||
|
|
Loading…
Reference in New Issue