diff options
| author | Tobias Burnus <burnus@net-b.de> | 2014-03-08 19:53:18 +0100 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2014-03-08 19:53:18 +0100 |
| commit | 566916e637118be03f39eaee85ceacf958839c46 (patch) | |
| tree | 12a35497a58dd1f4ddede034404be2f9bcfb8e00 /gcc/fortran/f95-lang.c | |
| parent | 80d6e13ece9985fe03e6ebdfd0742a10a71ca6ea (diff) | |
| download | gcc-566916e637118be03f39eaee85ceacf958839c46.zip gcc-566916e637118be03f39eaee85ceacf958839c46.tar.gz gcc-566916e637118be03f39eaee85ceacf958839c46.tar.bz2 | |
re PR fortran/60447 (Empty .s file created when using -E flag)
2014-03-08 Tobias Burnus <burnus@net-b.de>
PR fortran/60447
* f95-lang.c (gfc_init): Return false when only
preprocessing.
* options.c (gfc_post_options): Ditto.
From-SVN: r208431
Diffstat (limited to 'gcc/fortran/f95-lang.c')
| -rw-r--r-- | gcc/fortran/f95-lang.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/gcc/fortran/f95-lang.c b/gcc/fortran/f95-lang.c index aa49ea0..e25e92a 100644 --- a/gcc/fortran/f95-lang.c +++ b/gcc/fortran/f95-lang.c @@ -223,6 +223,9 @@ gfc_init (void) if (!gfc_new_file ()) fatal_error ("can't open input file: %s", gfc_source_file); + if (flag_preprocess_only) + return false; + return true; } |