PR fortran/33502
authorfxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4>
Thu, 4 Oct 2007 15:04:09 +0000 (15:04 +0000)
committerfxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4>
Thu, 4 Oct 2007 15:04:09 +0000 (15:04 +0000)
commitf2bb610fe8816fb0d5ab5476e322dc2a21e72578
tree84713ee9ee2363bfb664ffc3692e457e1493f1ed
parent2f5192975a88550e5490b71731353906015d5305
PR fortran/33502
* scanner.c (gfc_advance_line): Call debug_hooks->end_source_file
and debug_hooks->start_source_file when appropriate, and set
dbg_emitted.
(gfc_define_undef_line): New function.
(load_file): Don't error out on #define and #undef lines.
* parse.c (next_statement): Call gfc_define_undef_line.
(gfc_parse_file): Call debug_hooks->start_source_file and
debug_hooks->end_source_file for the main source file if
required.
* gfortran.h (gfc_linebuf): Add dbg_emitted field.
(gfc_define_undef_line): New prototype.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@129011 138bc75d-0d04-0410-961f-82ee72b054a4
gcc/fortran/ChangeLog
gcc/fortran/gfortran.h
gcc/fortran/parse.c
gcc/fortran/scanner.c