OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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:
Tobias Schlüter 2004-07-11 15:04:32 +02:00 committed by Tobias Schlüter
parent 6ac4b58e49
commit 87bdc5f8fd
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/fortran/ChangeLog
View File

@ -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.

4
gcc/fortran/module.c
View File

@ -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;