From: Steven G. Kargl <kargl@gcc.gnu.org>
Date: Mon, 25 Oct 2010 16:11:54 +0000 (+0000)
Subject: re PR fortran/46140 (Include not found - but exit status code is zero)
X-Git-Tag: releases/gcc-4.4.6~297
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=a7d0ea52ab8c680284cbd531ac4016f216002e6a;p=thirdparty%2Fgcc.git

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 8d6315520da2..6ef44f743a02 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-01  Release Manager
 
 	* GCC 4.4.5 released.
diff --git a/gcc/fortran/scanner.c b/gcc/fortran/scanner.c
index dc1fc82b14df..31f847b5c3f9 100644
--- 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;
 }