diff options
| author | Steven G. Kargl <kargl@gcc.gnu.org> | 2010-10-25 16:07:34 +0000 |
|---|---|---|
| committer | Steven G. Kargl <kargl@gcc.gnu.org> | 2010-10-25 16:07:34 +0000 |
| commit | 570f4691719a51481deae0109e358a605dd35604 (patch) | |
| tree | 0ec5bbf60114e128b803b290d969fb66ce8c955e /gcc/fortran/scanner.c | |
| parent | ab0c3d8ef58e04b46f29ecb20109032a057c6927 (diff) | |
| download | gcc-570f4691719a51481deae0109e358a605dd35604.zip gcc-570f4691719a51481deae0109e358a605dd35604.tar.gz gcc-570f4691719a51481deae0109e358a605dd35604.tar.bz2 | |
re PR fortran/46140 (Include not found - but exit status code is zero)
2010-10-25 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/46140
* fortran/scanner.c (include_line): Check return value of load_file.
From-SVN: r165922
Diffstat (limited to 'gcc/fortran/scanner.c')
| -rw-r--r-- | gcc/fortran/scanner.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/gcc/fortran/scanner.c b/gcc/fortran/scanner.c index c5d255d..24fb60a 100644 --- a/gcc/fortran/scanner.c +++ b/gcc/fortran/scanner.c @@ -1867,7 +1867,9 @@ include_line (gfc_char_t *line) read by anything else. */ filename = gfc_widechar_to_char (begin, -1); - load_file (filename, NULL, false); + if (load_file (filename, NULL, false) == FAILURE) + exit (1); + gfc_free (filename); return true; } |