2003-06-24 Scott Snyder <snyder@fnal.gov>

	PR fortran/11299
	* com.c (ffe_init): Call push_srcloc() to ensure that
	input_file_stack is initialized.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@68437 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog
index 6d98640..32db301 100644 (file)
--- a/gcc/f/ChangeLog
+++ b/gcc/f/ChangeLog
@@ -1,3 +1,9 @@
+2003-06-24  Scott Snyder  <snyder@fnal.gov>
+
+       PR fortran/11299
+       * com.c (ffe_init): Call push_srcloc() to ensure that
+       input_file_stack is initialized.
+
 Sat Jun 21 21:29:38 2003  Neil Booth  <neil@daikokuya.co.uk>
 
        * lang.opt: Add -fpreprocessed.

diff --git a/gcc/f/com.c b/gcc/f/com.c
index f384439..098cb3d 100644 (file)
--- a/gcc/f/com.c
+++ b/gcc/f/com.c
@@ -14246,6 +14246,8 @@ ffe_init ()
      to try doing this.  */
   ffelex_hash_kludge (finput);
 
+  push_srcloc (input_filename, 0);
+
   /* FIXME: The ffelex_hash_kludge code needs to be cleaned up to
      set the new file name.  Maybe in ffe_post_options.  */
   return true;