Report error when -fpre-include can't be opened (PR fortran/88912).
2019-02-04 Martin Liska <mliska@suse.cz> PR fortran/88912 * scanner.c (load_file): Report error for -fpre-include file and do not ICE. From-SVN: r268517
This commit is contained in:
parent
1d546c6098
commit
fcd698d713
|
@ -1,3 +1,9 @@
|
||||||
|
2019-02-04 Martin Liska <mliska@suse.cz>
|
||||||
|
|
||||||
|
PR fortran/88912
|
||||||
|
* scanner.c (load_file): Report error for -fpre-include
|
||||||
|
file and do not ICE.
|
||||||
|
|
||||||
2019-02-02 Dominique d'Humieres <dominiq@gcc.gnu.org>
|
2019-02-02 Dominique d'Humieres <dominiq@gcc.gnu.org>
|
||||||
|
|
||||||
PR fortran/81344
|
PR fortran/81344
|
||||||
|
|
|
@ -2478,8 +2478,14 @@ load_file (const char *realfilename, const char *displayedname, bool initial)
|
||||||
input = gfc_open_included_file (realfilename, false, false);
|
input = gfc_open_included_file (realfilename, false, false);
|
||||||
if (input == NULL)
|
if (input == NULL)
|
||||||
{
|
{
|
||||||
fprintf (stderr, "%s:%d: Error: Can't open included file '%s'\n",
|
/* For -fpre-include file, current_file is NULL. */
|
||||||
current_file->filename, current_file->line, filename);
|
if (current_file)
|
||||||
|
fprintf (stderr, "%s:%d: Error: Can't open included file '%s'\n",
|
||||||
|
current_file->filename, current_file->line, filename);
|
||||||
|
else
|
||||||
|
fprintf (stderr, "Error: Can't open pre-included file '%s'\n",
|
||||||
|
filename);
|
||||||
|
|
||||||
return false;
|
return false;
|
||||||
}
|
}
|
||||||
stat_result = stat (realfilename, &st);
|
stat_result = stat (realfilename, &st);
|
||||||
|
|
Loading…
Reference in New Issue