re PR fortran/11299 (f771 ICE on line directive)

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.

From-SVN: r68437

diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog
index 6d98640414d25b6385424788c972724e3e63ea9d..32db301a5ca89c7ec29e048275d890024827ea61 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 f384439955b5f879b36ffe6382f639c924ff74db..098cb3db72198b53e9f39e75089e26cd8bca2c50 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;