[Bug fortran/11141] [3.4 Regression] Pre-Proccessed Source causes segmentation fault

["pinskia at physics dot uc dot edu" <gcc-bugzilla at gcc dot gnu dot org>]

PLEASE REPLY TO gcc-bugzilla@gcc.gnu.org ONLY, *NOT* gcc-bugs@gcc.gnu.org.

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=11141


pinskia@physics.uc.edu changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
     Ever Confirmed|                            |1
   Last reconfirmed|0000-00-00 00:00:00         |2003-06-10 19:27:46
               date|                            |
            Summary|Pre-Proccessed Source causes|[3.4 Regression] Pre-
                   |segmentation fault          |Proccessed Source causes
                   |                            |segmentation fault


------- Additional Comments From pinskia@physics.uc.edu  2003-06-10 19:27 -------
confirmed on the mainline (20030610):
Here is the preprocessed source that causes the problem:
# 1 "pr11141.F"
# 1 "<built-in>"
# 1 "<command line>"
# 1 "pr11141.F"
# 1 "pr11141.h" 1
# 2 "pr11141.F" 2
       end


ffelex_file_push_ (old_lineno=1, filename=0x40076494 "pr11141.h") at /home/gates/
pinskia/src/gnu/gcc/src/gcc/f/lex.c:816
816       input_file_stack->location.line = old_lineno;
(gdb) p input_file_stack
$1 = (struct file_stack *) 0x0
(gdb) bt
#0  ffelex_file_push_ (old_lineno=1, filename=0x40076494 "pr11141.h") at /home/gates/
pinskia/src/gnu/gcc/src/gcc/f/lex.c:816
#1  0x0809482b in ffelex_hash_ (finput=0x8546188) at /home/gates/pinskia/src/gnu/gcc/
src/gcc/f/lex.c:1237
#2  0x08095394 in ffelex_file_fixed (wf=0x1, f=0x8546188) at /home/gates/pinskia/src/
gnu/gcc/src/gcc/f/lex.c:1794
#3  0x080e13bf in ffe_file (wf=0x40076460, f=0x8546188) at /home/gates/pinskia/src/
gnu/gcc/src/gcc/f/top.c:619
#4  0x08098741 in ffe_parse_file (set_yydebug=0) at /home/gates/pinskia/src/gnu/gcc/
src/gcc/f/parse.c:44
#5  0x082ebffa in compile_file () at /home/gates/pinskia/src/gnu/gcc/src/gcc/toplev.c:2214
#6  0x082f2127 in do_compile () at /home/gates/pinskia/src/gnu/gcc/src/gcc/
toplev.c:5742
#7  0x082f2199 in toplev_main (argc=139778712, argv=0x0) at /home/gates/pinskia/src/
gnu/gcc/src/gcc/toplev.c:5771
#8  0x080e239b in main (argc=139778712, argv=0x854da98) at /home/gates/pinskia/
src/gnu/gcc/src/gcc/main.c:37