OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR fortran/60447 (Empty .s file created when using -E flag)

Browse Source 
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
This commit is contained in:
Tobias Burnus 2014-03-08 19:53:18 +01:00 committed by Tobias Burnus
parent 80d6e13ece
commit 566916e637
3 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gcc/fortran/ChangeLog
View File

@ -1,3 +1,10 @@
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,

3
gcc/fortran/f95-lang.c
View File

@ -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;
}

9
gcc/fortran/options.c
View File

@ -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 ();
}