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: r165924

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 8d6315520da25c91ecd56d3f479301060e2047c0..6ef44f743a021b88bb4016497d3531d483c17d02 100644 (file)
--- 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-01  Release Manager
 
        * GCC 4.4.5 released.

diff --git a/gcc/fortran/scanner.c b/gcc/fortran/scanner.c
index dc1fc82b14df45b5f03247e29fa9a2b63ce0be88..31f847b5c3f93f5f332d7d326004c46402bde110 100644 (file)
--- a/gcc/fortran/scanner.c
+++ b/gcc/fortran/scanner.c
@@ -1770,7 +1770,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;
 }