ffe_set_is_vxt_not_90 (TRUE);
warning ("%s no longer supported -- try -fvxt", opt);
ffe_decode_option (char *opt){  if (opt[0] != '-')    return 0;  if (opt[1] == 'f')    {      if (strcmp (&opt[2], "version") == 0)	ffe_set_is_version (TRUE);      else if (strcmp (&opt[2], "null-version") == 0)	;			/* Someday generate program to print version				   info.  */      else if (strcmp (&opt[2], "set-g77-defaults") == 0)	{	  ffe_is_do_internal_checks_ = 0;#if BUILT_FOR_270	/* User must have applied patch (circa 2.7.2 and beyond). */	  flag_move_all_movables = 1;	  flag_reduce_all_givs = 1;	  flag_rerun_loop_opt = 1;#endif	}      else if (strcmp (&opt[2], "ident") == 0)	ffe_set_is_ident (TRUE);      else if (strcmp (&opt[2], "no-ident") == 0)	ffe_set_is_ident (FALSE);      else if (strcmp (&opt[2], "f66") == 0)	{	  ffe_set_is_onetrip (TRUE);	  ffe_set_is_ugly_assumed (TRUE);	}      else if (strcmp (&opt[2], "no-f66") == 0)	{	  ffe_set_is_onetrip (FALSE);	  ffe_set_is_ugly_assumed (FALSE);	}      else if (strcmp (&opt[2], "f77") == 0)	{	  ffe_set_is_backslash (TRUE);	  ffe_set_is_typeless_boz (FALSE);	}      else if (strcmp (&opt[2], "no-f77") == 0)	{	  ffe_set_is_backslash (FALSE);	}      else if (strcmp (&opt[2], "f90") == 0)	ffe_set_is_90 (TRUE);      else if (strcmp (&opt[2], "no-f90") == 0)	ffe_set_is_90 (FALSE);      else if (strcmp (&opt[2], "automatic") == 0)	ffe_set_is_automatic (TRUE);      else if (strcmp (&opt[2], "no-automatic") == 0)	ffe_set_is_automatic (FALSE);      else if (strcmp (&opt[2], "dollar-ok") == 0)	ffe_set_is_dollar_ok (TRUE);      else if (strcmp (&opt[2], "no-dollar-ok") == 0)	ffe_set_is_dollar_ok (FALSE);      else if (strcmp (&opt[2], "f2c") == 0)	ffe_set_is_f2c (TRUE);      else if (strcmp (&opt[2], "no-f2c") == 0)	ffe_set_is_f2c (FALSE);      else if (strcmp (&opt[2], "f2c-library") == 0)	ffe_set_is_f2c_library (TRUE);      else if (strcmp (&opt[2], "no-f2c-library") == 0)	ffe_set_is_f2c_library (FALSE);      else if (strcmp (&opt[2], "free-form") == 0)	ffe_set_is_free_form (TRUE);      else if (strcmp (&opt[2], "no-free-form") == 0)	ffe_set_is_free_form (FALSE);      else if (strcmp (&opt[2], "fixed-form") == 0)	ffe_set_is_free_form (FALSE);      else if (strcmp (&opt[2], "no-fixed-form") == 0)	ffe_set_is_free_form (TRUE);      else if (strcmp (&opt[2], "pedantic") == 0)	ffe_set_is_pedantic (TRUE);      else if (strcmp (&opt[2], "no-pedantic") == 0)	ffe_set_is_pedantic (FALSE);      else if (strcmp (&opt[2], "vxt-not-f90") == 0)	ffe_set_is_vxt_not_90 (TRUE);      else if (strcmp (&opt[2], "f90-not-vxt") == 0)	ffe_set_is_vxt_not_90 (FALSE);      else if (strcmp (&opt[2], "ugly") == 0)	{	  ffe_set_is_ugly_args (TRUE);	  ffe_set_is_ugly_assumed (TRUE);	  ffe_set_is_ugly_comma (TRUE);	  ffe_set_is_ugly_init (TRUE);	  ffe_set_is_ugly_logint (TRUE);	}      else if (strcmp (&opt[2], "no-ugly") == 0)	{	  ffe_set_is_ugly_args (FALSE);	  ffe_set_is_ugly_assumed (FALSE);	  ffe_set_is_ugly_comma (FALSE);	  ffe_set_is_ugly_init (FALSE);	  ffe_set_is_ugly_logint (FALSE);	}      else if (strcmp (&opt[2], "ugly-args") == 0)	ffe_set_is_ugly_args (TRUE);      else if (strcmp (&opt[2], "no-ugly-args") == 0)	ffe_set_is_ugly_args (FALSE);      else if (strcmp (&opt[2], "ugly-assumed") == 0)	ffe_set_is_ugly_assumed (TRUE);      else if (strcmp (&opt[2], "no-ugly-assumed") == 0)	ffe_set_is_ugly_assumed (FALSE);      else if (strcmp (&opt[2], "ugly-comma") == 0)	ffe_set_is_ugly_comma (TRUE);      else if (strcmp (&opt[2], "no-ugly-comma") == 0)	ffe_set_is_ugly_comma (FALSE);      else if (strcmp (&opt[2], "ugly-init") == 0)	ffe_set_is_ugly_init (TRUE);      else if (strcmp (&opt[2], "no-ugly-init") == 0)	ffe_set_is_ugly_init (FALSE);      else if (strcmp (&opt[2], "ugly-logint") == 0)	ffe_set_is_ugly_logint (TRUE);      else if (strcmp (&opt[2], "no-ugly-logint") == 0)	ffe_set_is_ugly_logint (FALSE);      else if (strcmp (&opt[2], "debug") == 0)	ffe_set_is_ffedebug (TRUE);      else if (strcmp (&opt[2], "no-debug") == 0)	ffe_set_is_ffedebug (FALSE);      else if (strcmp (&opt[2], "init-local-zero") == 0)	ffe_set_is_init_local_zero (TRUE);      else if (strcmp (&opt[2], "no-init-local-zero") == 0)	ffe_set_is_init_local_zero (FALSE);      else if (strcmp (&opt[2], "backslash") == 0)	ffe_set_is_backslash (TRUE);      else if (strcmp (&opt[2], "no-backslash") == 0)	ffe_set_is_backslash (FALSE);      else if (strcmp (&opt[2], "underscoring") == 0)	ffe_set_is_underscoring (TRUE);      else if (strcmp (&opt[2], "no-underscoring") == 0)	ffe_set_is_underscoring (FALSE);      else if (strcmp (&opt[2], "second-underscore") == 0)	ffe_set_is_second_underscore (TRUE);      else if (strcmp (&opt[2], "no-second-underscore") == 0)	ffe_set_is_second_underscore (FALSE);      else if (strcmp (&opt[2], "zeros") == 0)	ffe_set_is_zeros (TRUE);      else if (strcmp (&opt[2], "no-zeros") == 0)	ffe_set_is_zeros (FALSE);      else if (strcmp (&opt[2], "debug-kludge") == 0)	ffe_set_is_debug_kludge (TRUE);      else if (strcmp (&opt[2], "no-debug-kludge") == 0)	ffe_set_is_debug_kludge (FALSE);      else if (strcmp (&opt[2], "onetrip") == 0)	ffe_set_is_onetrip (TRUE);      else if (strcmp (&opt[2], "no-onetrip") == 0)	ffe_set_is_onetrip (FALSE);      else if (strcmp (&opt[2], "silent") == 0)	ffe_set_is_silent (TRUE);      else if (strcmp (&opt[2], "no-silent") == 0)	ffe_set_is_silent (FALSE);      else if (strcmp (&opt[2], "typeless-boz") == 0)	ffe_set_is_typeless_boz (TRUE);      else if (strcmp (&opt[2], "no-typeless-boz") == 0)	ffe_set_is_typeless_boz (FALSE);      else if (strcmp (&opt[2], "intrin-case-initcap") == 0)	ffe_set_case_intrin (FFE_caseINITCAP);      else if (strcmp (&opt[2], "intrin-case-upper") == 0)	ffe_set_case_intrin (FFE_caseUPPER);      else if (strcmp (&opt[2], "intrin-case-lower") == 0)	ffe_set_case_intrin (FFE_caseLOWER);      else if (strcmp (&opt[2], "intrin-case-any") == 0)	ffe_set_case_intrin (FFE_caseNONE);      else if (strcmp (&opt[2], "match-case-initcap") == 0)	ffe_set_case_match (FFE_caseINITCAP);      else if (strcmp (&opt[2], "match-case-upper") == 0)	ffe_set_case_match (FFE_caseUPPER);      else if (strcmp (&opt[2], "match-case-lower") == 0)	ffe_set_case_match (FFE_caseLOWER);      else if (strcmp (&opt[2], "match-case-any") == 0)	ffe_set_case_match (FFE_caseNONE);      else if (strcmp (&opt[2], "source-case-upper") == 0)	ffe_set_case_source (FFE_caseUPPER);      else if (strcmp (&opt[2], "source-case-lower") == 0)	ffe_set_case_source (FFE_caseLOWER);      else if (strcmp (&opt[2], "source-case-preserve") == 0)	ffe_set_case_source (FFE_caseNONE);      else if (strcmp (&opt[2], "symbol-case-initcap") == 0)	ffe_set_case_symbol (FFE_caseINITCAP);      else if (strcmp (&opt[2], "symbol-case-upper") == 0)	ffe_set_case_symbol (FFE_caseUPPER);      else if (strcmp (&opt[2], "symbol-case-lower") == 0)	ffe_set_case_symbol (FFE_caseLOWER);      else if (strcmp (&opt[2], "symbol-case-any") == 0)	ffe_set_case_symbol (FFE_caseNONE);      else if (strcmp (&opt[2], "case-strict-upper") == 0)	{	  ffe_set_case_intrin (FFE_caseUPPER);	  ffe_set_case_match (FFE_caseUPPER);	  ffe_set_case_source (FFE_caseNONE);	  ffe_set_case_symbol (FFE_caseUPPER);	}      else if (strcmp (&opt[2], "case-strict-lower") == 0)	{	  ffe_set_case_intrin (FFE_caseLOWER);	  ffe_set_case_match (FFE_caseLOWER);	  ffe_set_case_source (FFE_caseNONE);	  ffe_set_case_symbol (FFE_caseLOWER);	}      else if (strcmp (&opt[2], "case-initcap") == 0)	{	  ffe_set_case_intrin (FFE_caseINITCAP);	  ffe_set_case_match (FFE_caseINITCAP);	  ffe_set_case_source (FFE_caseNONE);	  ffe_set_case_symbol (FFE_caseINITCAP);	}      else if (strcmp (&opt[2], "case-upper") == 0)	{	  ffe_set_case_intrin (FFE_caseNONE);	  ffe_set_case_match (FFE_caseNONE);	  ffe_set_case_source (FFE_caseUPPER);	  ffe_set_case_symbol (FFE_caseNONE);	}      else if (strcmp (&opt[2], "case-lower") == 0)	{	  ffe_set_case_intrin (FFE_caseNONE);	  ffe_set_case_match (FFE_caseNONE);	  ffe_set_case_source (FFE_caseLOWER);	  ffe_set_case_symbol (FFE_caseNONE);	}      else if (strcmp (&opt[2], "case-preserve") == 0)	{	  ffe_set_case_intrin (FFE_caseNONE);	  ffe_set_case_match (FFE_caseNONE);	  ffe_set_case_source (FFE_caseNONE);	  ffe_set_case_symbol (FFE_caseNONE);	}      else if (strcmp (&opt[2], "dcp-intrinsics-delete") == 0)	ffe_set_intrinsic_state_dcp (FFE_intrinsicstateDELETED);      else if (strcmp (&opt[2], "dcp-intrinsics-hide") == 0)	ffe_set_intrinsic_state_dcp (FFE_intrinsicstateHIDDEN);      else if (strcmp (&opt[2], "dcp-intrinsics-disable") == 0)	ffe_set_intrinsic_state_dcp (FFE_intrinsicstateDISABLED);      else if (strcmp (&opt[2], "dcp-intrinsics-enable") == 0)	ffe_set_intrinsic_state_dcp (FFE_intrinsicstateENABLED);      else if (strcmp (&opt[2], "f2c-intrinsics-delete") == 0)	ffe_set_intrinsic_state_f2c (FFE_intrinsicstateDELETED);      else if (strcmp (&opt[2], "f2c-intrinsics-hide") == 0)	ffe_set_intrinsic_state_f2c (FFE_intrinsicstateHIDDEN);      else if (strcmp (&opt[2], "f2c-intrinsics-disable") == 0)	ffe_set_intrinsic_state_f2c (FFE_intrinsicstateDISABLED);      else if (strcmp (&opt[2], "f2c-intrinsics-enable") == 0)	ffe_set_intrinsic_state_f2c (FFE_intrinsicstateENABLED);      else if (strcmp (&opt[2], "f90-intrinsics-delete") == 0)	ffe_set_intrinsic_state_f90 (FFE_intrinsicstateDELETED);      else if (strcmp (&opt[2], "f90-intrinsics-hide") == 0)	ffe_set_intrinsic_state_f90 (FFE_intrinsicstateHIDDEN);      else if (strcmp (&opt[2], "f90-intrinsics-disable") == 0)	ffe_set_intrinsic_state_f90 (FFE_intrinsicstateDISABLED);      else if (strcmp (&opt[2], "f90-intrinsics-enable") == 0)	ffe_set_intrinsic_state_f90 (FFE_intrinsicstateENABLED);      else if (strcmp (&opt[2], "mil-intrinsics-delete") == 0)	ffe_set_intrinsic_state_mil (FFE_intrinsicstateDELETED);      else if (strcmp (&opt[2], "mil-intrinsics-hide") == 0)	ffe_set_intrinsic_state_mil (FFE_intrinsicstateHIDDEN);      else if (strcmp (&opt[2], "mil-intrinsics-disable") == 0)	ffe_set_intrinsic_state_mil (FFE_intrinsicstateDISABLED);      else if (strcmp (&opt[2], "mil-intrinsics-enable") == 0)	ffe_set_intrinsic_state_mil (FFE_intrinsicstateENABLED);      else if (strcmp (&opt[2], "unix-intrinsics-delete") == 0)	ffe_set_intrinsic_state_unix (FFE_intrinsicstateDELETED);      else if (strcmp (&opt[2], "unix-intrinsics-hide") == 0)	ffe_set_intrinsic_state_unix (FFE_intrinsicstateHIDDEN);      else if (strcmp (&opt[2], "unix-intrinsics-disable") == 0)	ffe_set_intrinsic_state_unix (FFE_intrinsicstateDISABLED);      else if (strcmp (&opt[2], "unix-intrinsics-enable") == 0)	ffe_set_intrinsic_state_unix (FFE_intrinsicstateENABLED);      else if (strcmp (&opt[2], "vxt-intrinsics-delete") == 0)	ffe_set_intrinsic_state_vxt (FFE_intrinsicstateDELETED);      else if (strcmp (&opt[2], "vxt-intrinsics-hide") == 0)	ffe_set_intrinsic_state_vxt (FFE_intrinsicstateHIDDEN);      else if (strcmp (&opt[2], "vxt-intrinsics-disable") == 0)	ffe_set_intrinsic_state_vxt (FFE_intrinsicstateDISABLED);      else if (strcmp (&opt[2], "vxt-intrinsics-enable") == 0)	ffe_set_intrinsic_state_vxt (FFE_intrinsicstateENABLED);      else if (strncmp (&opt[2], "fixed-line-length-",			strlen ("fixed-line-length-")) == 0)	{	  char *len = &opt[2] + strlen ("fixed-line-length-");	  if (strcmp (len, "none") == 0)	    ffe_set_fixed_line_length (0);	  else if (ffe_is_digit_string_ (len))	    ffe_set_fixed_line_length (atol (len));	  else	    return 0;	}      else	return 0;    }  else if (opt[1] == 'W')    {      if (!strcmp (&opt[2], "comment"))	; /* cpp handles this one.  */      else if (!strcmp (&opt[2], "no-comment"))	; /* cpp handles this one.  */      else if (!strcmp (&opt[2], "comments"))	; /* cpp handles this one.  */      else if (!strcmp (&opt[2], "no-comments"))	; /* cpp handles this one.  */      else if (!strcmp (&opt[2], "trigraphs"))	; /* cpp handles this one.  */      else if (!strcmp (&opt[2], "no-trigraphs"))	; /* cpp handles this one.  */      else if (!strcmp (&opt[2], "import"))	; /* cpp handles this one.  */      else if (!strcmp (&opt[2], "no-import"))	; /* cpp handles this one.  */      else if (!strcmp (&opt[2], "implicit"))	ffe_set_is_warn_implicit (TRUE);      else if (!strcmp (&opt[2], "no-implicit"))	ffe_set_is_warn_implicit (FALSE);      else if (!strcmp (&opt[2], "surprising"))	ffe_set_is_warn_surprising (TRUE);      else if (!strcmp (&opt[2], "no-surprising"))	ffe_set_is_warn_surprising (FALSE);      else if (!strcmp (&opt[2], "all"))	{	  /* We save the value of warn_uninitialized, since if they put	     -Wuninitialized on the command line, we need to generate a	     warning about not using it without also specifying -O.  */	  if (warn_uninitialized != 1)	    warn_uninitialized = 2;	  warn_unused = 1;	}      else	return 0;    }  else if (opt[1] == 'I')    return ffecom_decode_include_option (&opt[2]);  else    return 0;  return 1;}