diff options
Diffstat (limited to 'gcc/fortran/options.c')
| -rw-r--r-- | gcc/fortran/options.c | 21 |
1 files changed, 13 insertions, 8 deletions
diff --git a/gcc/fortran/options.c b/gcc/fortran/options.c index 18d56c560b0..ff3719e54d9 100644 --- a/gcc/fortran/options.c +++ b/gcc/fortran/options.c @@ -61,6 +61,7 @@ gfc_init_options (unsigned int argc ATTRIBUTE_UNUSED, gfc_option.warn_underflow = 1; gfc_option.warn_unused_labels = 0; + gfc_option.flag_all_intrinsics = 0; gfc_option.flag_default_double = 0; gfc_option.flag_default_integer = 0; gfc_option.flag_default_real = 0; @@ -424,6 +425,18 @@ gfc_handle_option (size_t scode, const char *arg, int value) case OPT_Wunused_labels: gfc_option.warn_unused_labels = value; break; + + case OPT_fall_intrinsics: + gfc_option.flag_all_intrinsics = 1; + break; + + case OPT_fautomatic: + gfc_option.flag_automatic = value; + break; + + case OPT_fbackslash: + gfc_option.flag_backslash = value; + break; case OPT_fcray_pointer: gfc_option.flag_cray_pointer = value; @@ -437,14 +450,6 @@ gfc_handle_option (size_t scode, const char *arg, int value) gfc_option.flag_dollar_ok = value; break; - case OPT_fautomatic: - gfc_option.flag_automatic = value; - break; - - case OPT_fbackslash: - gfc_option.flag_backslash = value; - break; - case OPT_fd_lines_as_code: gfc_option.flag_d_lines = 1; break; |
