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
+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,
if (!gfc_new_file ())
fatal_error ("can't open input file: %s", gfc_source_file);
+ if (flag_preprocess_only)
+ return false;
+
return true;
}
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 ();
}