diff options
Diffstat (limited to 'gcc/fortran/options.c')
| -rw-r--r-- | gcc/fortran/options.c | 19 |
1 files changed, 5 insertions, 14 deletions
diff --git a/gcc/fortran/options.c b/gcc/fortran/options.c index bbbd6ab..dee1af4 100644 --- a/gcc/fortran/options.c +++ b/gcc/fortran/options.c @@ -104,7 +104,6 @@ gfc_init_options (unsigned int decoded_options_count, gfc_option.warn_implicit_interface = 0; gfc_option.warn_line_truncation = 0; gfc_option.warn_surprising = 0; - gfc_option.warn_tabs = 1; gfc_option.warn_underflow = 1; gfc_option.warn_intrinsic_shadow = 0; gfc_option.warn_intrinsics_std = 0; @@ -430,10 +429,7 @@ gfc_post_options (const char **pfilename) gfc_option.flag_max_stack_var_size = 0; if (pedantic) - { - gfc_option.warn_ampersand = 1; - gfc_option.warn_tabs = 0; - } + gfc_option.warn_ampersand = 1; /* Optimization implies front end optimization, unless the user specified it directly. */ @@ -461,7 +457,6 @@ set_Wall (int setting) gfc_option.gfc_warn_conversion = setting; gfc_option.warn_line_truncation = setting; gfc_option.warn_surprising = setting; - gfc_option.warn_tabs = !setting; gfc_option.warn_underflow = setting; gfc_option.warn_intrinsic_shadow = setting; gfc_option.warn_intrinsics_std = setting; @@ -720,10 +715,6 @@ gfc_handle_option (size_t scode, const char *arg, int value, gfc_option.warn_surprising = value; break; - case OPT_Wtabs: - gfc_option.warn_tabs = value; - break; - case OPT_Wtarget_lifetime: gfc_option.warn_target_lifetime = value; break; @@ -1038,7 +1029,7 @@ gfc_handle_option (size_t scode, const char *arg, int value, gfc_option.max_continue_free = 39; gfc_option.max_identifier_length = 31; gfc_option.warn_ampersand = 1; - gfc_option.warn_tabs = 0; + warn_tabs = 1; break; case OPT_std_f2003: @@ -1047,7 +1038,7 @@ gfc_handle_option (size_t scode, const char *arg, int value, gfc_option.warn_std = GFC_STD_F95_OBS; gfc_option.max_identifier_length = 63; gfc_option.warn_ampersand = 1; - gfc_option.warn_tabs = 0; + warn_tabs = 1; break; case OPT_std_f2008: @@ -1056,7 +1047,7 @@ gfc_handle_option (size_t scode, const char *arg, int value, gfc_option.warn_std = GFC_STD_F95_OBS | GFC_STD_F2008_OBS; gfc_option.max_identifier_length = 63; gfc_option.warn_ampersand = 1; - gfc_option.warn_tabs = 0; + warn_tabs = 1; break; case OPT_std_f2008ts: @@ -1066,7 +1057,7 @@ gfc_handle_option (size_t scode, const char *arg, int value, gfc_option.warn_std = GFC_STD_F95_OBS | GFC_STD_F2008_OBS; gfc_option.max_identifier_length = 63; gfc_option.warn_ampersand = 1; - gfc_option.warn_tabs = 0; + warn_tabs = 1; break; case OPT_std_gnu: |