This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
Re: [gfortran] Proposed fix for PR fortran/12912
- From: Toon Moene <toon at moene dot indiv dot nluug dot nl>
- To: Paul Brook <paul at codesourcery dot com>
- Cc: fortran at gcc dot gnu dot org, gcc-patches at gcc dot gnu dot org
- Date: Tue, 13 Jan 2004 18:43:38 +0100
- Subject: Re: [gfortran] Proposed fix for PR fortran/12912
- Organization: Moene Computational Physics, Maartensdijk, The Netherlands
- References: <40024C89.6060407@moene.indiv.nluug.nl> <200401121050.22302.paul@codesourcery.com>
Paul Brook wrote:
On Monday 12 January 2004 7:28 am, Toon Moene wrote:
Somewhat different from the proposed fix, due to the addition of
-ffixed-form when compiling .f files.
Bootstrapped and regression tested on powerpc-unknown-linux-gnu.
OK to apply ?
{"@f77", "%{!E:f951 %i -ffixed-form %(cc1_options) %{J*} %{I*}\
I think this should be %{!ffree-form:-ffixed-form} (untested). Other than
that, ok.
I changed that part, retested on powerpc-unknown-linux-gnu and applied
the resulting patch (attached).
You might also want to look at removing form_from_filename from scanner.c, it
seems redundant now.
I'll leave that for another patch, as this wasn't clear to me
immediately. I also make another patch to support .F and .F9{0|5}
extensions for (to be) preprocessed Fortran 77 and Fortran 90/95 files.
--
Toon Moene - mailto:toon@moene.indiv.nluug.nl - phoneto: +31 346 214290
Saturnushof 14, 3738 XG Maartensdijk, The Netherlands
Maintainer, GNU Fortran 77: http://gcc.gnu.org/onlinedocs/g77_news.html
GNU Fortran 95: http://gcc.gnu.org/fortran/ (under construction)
2004-01-13 Toon Moene <toon@moene.indiv.nluug.nl>
PR fortran/12912
* lang-specs.h: Enable compilation of files ending
in .f, .for and .FOR.
*** lang-specs.h.orig Sat Jul 26 18:27:46 2003
--- lang-specs.h Tue Jan 13 07:25:54 2004
*************** This file is licensed under the GPL. */
*** 10,14 ****
{".f90", "@f95", 0},
{".f95", "@f95", 0},
{"@f95", "%{!E:f951 %i %<ffixed-format %(cc1_options) %{J*} %{I*}\
! %{!fsyntax-only:%(invoke_as)}}", 0}
! ,
--- 10,18 ----
{".f90", "@f95", 0},
{".f95", "@f95", 0},
{"@f95", "%{!E:f951 %i %<ffixed-format %(cc1_options) %{J*} %{I*}\
! %{!fsyntax-only:%(invoke_as)}}", 0},
! {".f", "@f77", 0},
! {".for", "@f77", 0},
! {".FOR", "@f77", 0},
! {"@f77", "%{!E:f951 %i %{!ffree-form:-ffixed-form} %(cc1_options) %{J*} %{I*}\
! %{!fsyntax-only:%(invoke_as)}}", 0},