From 8d3216f82da82f921fd4f684661b5597fde436c6 Mon Sep 17 00:00:00 2001 From: Jakub Jelinek Date: Thu, 19 Jul 2001 21:44:12 +0200 Subject: [PATCH] top.c (ffe_decode_option): Disallow lang-independent processing for -ffixed-form. * top.c (ffe_decode_option): Disallow lang-independent processing for -ffixed-form. From-SVN: r44159 --- gcc/f/ChangeLog | 5 +++++ gcc/f/top.c | 5 ++++- 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog index 15e93100b19..fecadfad0b8 100644 --- a/gcc/f/ChangeLog +++ b/gcc/f/ChangeLog @@ -1,3 +1,8 @@ +2001-07-19 Jakub Jelinek + + * top.c (ffe_decode_option): Disallow lang-independent processing + for -ffixed-form. + 2001-07-19 Toon Moene * f/com.c (ffecom_expr_intrinsic_): Deal (correctly) with diff --git a/gcc/f/top.c b/gcc/f/top.c index 9675989e210..f446768f14d 100644 --- a/gcc/f/top.c +++ b/gcc/f/top.c @@ -225,7 +225,10 @@ ffe_decode_option (argc, argv) 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); + { + ffe_set_is_free_form (FALSE); + return -1; + } else if (strcmp (&opt[2], "no-fixed-form") == 0) ffe_set_is_free_form (TRUE); else if (strcmp (&opt[2], "pedantic") == 0) -- 2.30.2