From 7aff2f289b390ebab933209b9eb1a9de5354dbfe Mon Sep 17 00:00:00 2001 From: Scott Snyder Date: Tue, 24 Jun 2003 19:54:24 +0000 Subject: [PATCH] re PR fortran/11299 (f771 ICE on line directive) 2003-06-24 Scott Snyder PR fortran/11299 * com.c (ffe_init): Call push_srcloc() to ensure that input_file_stack is initialized. From-SVN: r68437 --- gcc/f/ChangeLog | 6 ++++++ gcc/f/com.c | 2 ++ 2 files changed, 8 insertions(+) diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog index 6d98640..32db301 100644 --- a/gcc/f/ChangeLog +++ b/gcc/f/ChangeLog @@ -1,3 +1,9 @@ +2003-06-24 Scott Snyder + + 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 * lang.opt: Add -fpreprocessed. diff --git a/gcc/f/com.c b/gcc/f/com.c index f384439..098cb3d 100644 --- 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; -- 2.7.4