Re: PR fortran/9038, a regression in 3.3/3.4 with respect to 3.2.

[Toon Moene <toon at moene dot indiv dot nluug dot nl>]

Neil Booth wrote:

> Toon Moene wrote:

> > Neil Booth wrote:

> > > What I mentioned in the other mail should work.  Whatever your original
> > > c-opts.c patch was  probably just needs one extra line:
> > >
> > > 	case OPT_ffixed:
> > > +	result = -1;
> > > 	break;
> >
> > OK, the following patch works, bootstrapped on 
> > powerpc-unknown-linux-gnu.  Is this OK for 3.4 (Neil) and 3.3 (Mark) ?

> No it doesn't work, as I explained.  You should do what Zack suggested.

Yep, I like Zack's suggestion (even considering your later e-mail to me 
personally).

The following attached patch implements it; bootstrapped and make -k 
check'd (C and Fortran) on powerpc-unknown-linux-gnu.

OK this way ?

Thanks,

--
Toon Moene - mailto:toon at moene dot indiv dot nluug dot 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-g95.sourceforge.net/ (under construction)

2003-02-20  Toon Moene  <toon at moene dot indiv dot nluug dot nl>

	PR fortran/9038
	* c-opts.c (sanitize_cpp_opts): Add Fortran front end
	options to be ignored.
	(c_common_decode_option): Ignore them when preprocessing.

*** c-opts.c.orig	Tue Jan 28 23:51:27 2003
--- c-opts.c	Thu Feb 20 17:57:58 2003
*************** static void sanitize_cpp_opts PARAMS ((v
*** 213,216 ****
--- 213,218 ----
    OPT("fenum-int-equiv",	CL_CXX,   OPT_fenum_int_equiv)		     \
    OPT("fexternal-templates",	CL_CXX,   OPT_fexternal_templates)	     \
+   OPT("ffixed-form",		CL_C,	  OPT_ffixed_form)		     \
+   OPT("ffixed-line-length-",	CL_C | CL_JOINED, OPT_ffixed_line_length)    \
    OPT("ffor-scope",		CL_CXX,   OPT_ffor_scope)		     \
    OPT("ffreestanding",		CL_C,     OPT_ffreestanding)		     \
*************** c_common_decode_option (argc, argv)
*** 1143,1146 ****
--- 1145,1155 ----
        goto cp_deprecated;
  
+     case OPT_ffixed_form:
+     case OPT_ffixed_line_length:
+       /* Fortran front end options ignored when preprocessing only.  */
+       if (flag_preprocess_only)
+         result = -1;
+       break;
+ 
      case OPT_ffor_scope:
        flag_new_for_scope = on;