diff options
| author | kargl <kargl@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-10-25 16:07:34 +0000 |
|---|---|---|
| committer | kargl <kargl@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-10-25 16:07:34 +0000 |
| commit | 6c1d850a2c6937ebc72a52c873ccfbea38bd8a98 (patch) | |
| tree | 0ec5bbf60114e128b803b290d969fb66ce8c955e | |
| parent | 38238ff46ecf863131b47cd2268eee444437af56 (diff) | |
| download | gcc-6c1d850a2c6937ebc72a52c873ccfbea38bd8a98.tar.gz | |
2010-10-25 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/46140
* fortran/scanner.c (include_line): Check return value of load_file.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@165922 138bc75d-0d04-0410-961f-82ee72b054a4
| -rw-r--r-- | gcc/fortran/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/fortran/scanner.c | 4 |
2 files changed, 8 insertions, 1 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 341e15038cc..006ea6ed726 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2010-10-25 Steven G. Kargl <kargl@gcc.gnu.org> + + PR fortran/46140 + * fortran/scanner.c (include_line): Check return value of load_file. + 2010-10-23 Tobias Burnus <burnus@net-b.de> PR fortran/46122 diff --git a/gcc/fortran/scanner.c b/gcc/fortran/scanner.c index c5d255d8d4b..24fb60af394 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; } |