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 | |
| 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')
| -rw-r--r-- | gcc/fortran/ChangeLog | 7 | ||||
| -rw-r--r-- | gcc/fortran/f95-lang.c | 3 | ||||
| -rw-r--r-- | gcc/fortran/options.c | 9 |
3 files changed, 11 insertions, 8 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 118c5de..872a4a3 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,5 +1,12 @@ 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. + +2014-03-08 Tobias Burnus <burnus@net-b.de> + * gfortran.texi (Fortran 2003 Status): Mention finalization, deferred-length character support and input rounding. (Fortran 2008 Status): Mention that at termination 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; } diff --git a/gcc/fortran/options.c b/gcc/fortran/options.c index 895a7dc..a2b91ca 100644 --- a/gcc/fortran/options.c +++ b/gcc/fortran/options.c @@ -437,14 +437,7 @@ gfc_post_options (const char **pfilename) gfc_cpp_post_options (); -/* FIXME: return gfc_cpp_preprocess_only (); - - The return value of this function indicates whether the - backend needs to be initialized. On -E, we don't need - the backend. However, if we return 'true' here, an - ICE occurs. Initializing the backend doesn't hurt much, - hence, for now we can live with it as is. */ - return false; + return gfc_cpp_preprocess_only (); } |