diff options
| author | Scott Snyder <snyder@fnal.gov> | 2003-06-24 19:54:24 +0000 |
|---|---|---|
| committer | Toon Moene <toon@gcc.gnu.org> | 2003-06-24 19:54:24 +0000 |
| commit | 7aff2f289b390ebab933209b9eb1a9de5354dbfe (patch) | |
| tree | 9a533c3884d08eb7be818274b707e4367a269127 | |
| parent | 1b6f0a561f24ac71e50e6ac30a01b5a101ea3980 (diff) | |
| download | gcc-7aff2f289b390ebab933209b9eb1a9de5354dbfe.zip gcc-7aff2f289b390ebab933209b9eb1a9de5354dbfe.tar.gz gcc-7aff2f289b390ebab933209b9eb1a9de5354dbfe.tar.bz2 | |
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
| -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 6d98640..32db301 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 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; |