diff options
| author | toon <toon@138bc75d-0d04-0410-961f-82ee72b054a4> | 2003-06-24 19:54:24 +0000 |
|---|---|---|
| committer | toon <toon@138bc75d-0d04-0410-961f-82ee72b054a4> | 2003-06-24 19:54:24 +0000 |
| commit | 06c17be6e9c718947ce82600427ed2e24c036f4e (patch) | |
| tree | 9a533c3884d08eb7be818274b707e4367a269127 /gcc/f | |
| parent | 2357a7dfc248b2fdeaae58754dafbb3c545b26e5 (diff) | |
| download | gcc-06c17be6e9c718947ce82600427ed2e24c036f4e.tar.gz | |
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
Diffstat (limited to 'gcc/f')
| -rw-r--r-- | gcc/f/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/f/com.c | 2 |
2 files changed, 8 insertions, 0 deletions
diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog index 6d98640414d..32db301a5ca 100644 --- 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 f384439955b..098cb3db721 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; |