diff options
| author | Jakub Jelinek <jakub@redhat.com> | 2006-01-27 21:01:55 +0100 |
|---|---|---|
| committer | Jakub Jelinek <jakub@gcc.gnu.org> | 2006-01-27 21:01:55 +0100 |
| commit | 2d7c7df665fd79a85731ca2a5d9d31775d2bc81e (patch) | |
| tree | b37f5669c2cae6d982523e270287247aebe416d2 /gcc/fortran/lang.opt | |
| parent | 602ea4d30716a6c72c6ee7fc8207a87e58a40d80 (diff) | |
| download | gcc-2d7c7df665fd79a85731ca2a5d9d31775d2bc81e.zip gcc-2d7c7df665fd79a85731ca2a5d9d31775d2bc81e.tar.gz gcc-2d7c7df665fd79a85731ca2a5d9d31775d2bc81e.tar.bz2 | |
re PR fortran/25324 (Wrong DW_TAG_compile_unit generated when compiling preprocessed fortran code)
PR fortran/25324
* Make-lang.in (fortran/scanner.o): Depend on toplev.h.
* lang.opt (fpreprocessed): New option.
* scanner.c: Include toplev.h.
(gfc_src_file, gfc_src_preprocessor_lines): New variables.
(preprocessor_line): Unescape filename if there were any
backslashes.
(load_file): If initial and gfc_src_file is not NULL,
use it rather than opening the file. If gfc_src_preprocessor_lines
has non-NULL elements, pass it to preprocessor_line.
(unescape_filename, gfc_read_orig_filename): New functions.
* gfortran.h (gfc_option_t): Add flag_preprocessed.
(gfc_read_orig_filename): New prototype.
* options.c (gfc_init_options): Clear flag_preprocessed.
(gfc_post_options): If flag_preprocessed, call
gfc_read_orig_filename.
(gfc_handle_option): Handle OPT_fpreprocessed.
* lang-specs.h: Pass -fpreprocessed to f951 if preprocessing
sources.
From-SVN: r110304
Diffstat (limited to 'gcc/fortran/lang.opt')
| -rw-r--r-- | gcc/fortran/lang.opt | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/gcc/fortran/lang.opt b/gcc/fortran/lang.opt index e17bfa5..465d589 100644 --- a/gcc/fortran/lang.opt +++ b/gcc/fortran/lang.opt @@ -173,6 +173,10 @@ frepack-arrays Fortran Copy array sections into a contiguous block on procedure entry +fpreprocessed +Fortran +Treat the input file as preprocessed + qkind= Fortran RejectNegative Joined UInteger -qkind=<n> Set the kind for a real with the 'q' exponent to 'n' |