This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
[patch, fortran, committed] PR36375, PR36377
- From: Daniel Franke <franke dot daniel at gmail dot com>
- To: fortran at gcc dot gnu dot org
- Cc: gcc-patches at gcc dot gnu dot org
- Date: Mon, 2 Jun 2008 18:41:58 +0200
- Subject: [patch, fortran, committed] PR36375, PR36377
- Dkim-signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=gamma; h=domainkey-signature:received:received:from:to:subject:date :user-agent:cc:mime-version:content-type:message-id; bh=ivW1AeQ9/pA05GMGzQQ8Sm00CAkHACeVTt3I5mDQj7U=; b=HzvuH/0V0msh47fqg/nZ2+ejhpXAk4r3M3qBQZ3t/dv3tWdAFMsGDurwe7cR19tpTd rCMG7xGMGg/3namFfSQ/vN850o7aEhb8JFYo1MC6UxAqHDPHZotxjOLGBSXQ8Ajechu8 /HZ610wFuJwTfv+KMP4q49BwIHY+Oeim0jp5U=
- Domainkey-signature: a=rsa-sha1; c=nofws; d=gmail.com; s=gamma; h=from:to:subject:date:user-agent:cc:mime-version:content-type :message-id; b=Jiv+oXB9kTaDfc2ekW6BKrzTzGd1bhSF16XN5ygq8p8gFEW6h6ApCOcXRpSfk0fMYE M4bS1Sx1wsFzjZspQ5oAjiq+ny7N57IcTYqf4mop+6lwTedFcC4ERKcvW6XKiESSYko2 5tWqHLZJGK70/zh7q7SPmj9nLRW5vgSMzfQHE=
Committed attached patches as obvious after bootstrapping and regtesting on
i686-pc-linux-gnu (r136283).
2008-06-02 Daniel Franke <franke.daniel@gmail.com>
PR fortran/36375
PR fortran/36377
* cpp.c (gfc_cpp_init): Do not initialize builtins if processing
already preprocessed input.
(gfc_cpp_preprocess): Finalize output with newline.
Regards
Daniel
Index: fortran/cpp.c
===================================================================
--- fortran/cpp.c (revision 136256)
+++ fortran/cpp.c (working copy)
@@ -524,6 +524,9 @@ gfc_cpp_init (void)
{
int i;
+ if (gfc_option.flag_preprocessed)
+ return;
+
cpp_change_file (cpp_in, LC_RENAME, _("<built-in>"));
if (!gfc_cpp_option.no_predefined)
cpp_define_builtins (cpp_in);
Index: fortran/cpp.c
===================================================================
--- fortran/cpp.c (revision 136256)
+++ fortran/cpp.c (working copy)
@@ -574,6 +577,8 @@ gfc_cpp_preprocess (const char *source_f
cpp_forall_identifiers (cpp_in, dump_macro, NULL);
}
+ putc ('\n', print.outf);
+
if (!gfc_cpp_preprocess_only ()
|| (gfc_cpp_preprocess_only () && gfc_cpp_option.output_filename))
fclose (print.outf);