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

gcc/f/ChangeLog

+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.

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;