This is the mail archive of the gcc-patches@gcc.gnu.org mailing list for the GCC project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

Re: [gfortran] Proposed fix for PR fortran/12912


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},

Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]