diff options
author | Dan Albert <danalbert@google.com> | 2015-06-17 11:09:54 -0700 |
---|---|---|
committer | Dan Albert <danalbert@google.com> | 2015-06-17 14:15:22 -0700 |
commit | f378ebf14df0952eae870c9865bab8326aa8f137 (patch) | |
tree | 31794503eb2a8c64ea5f313b93100f1163afcffb /gcc-4.4.0/gcc/fortran/options.c | |
parent | 2c58169824949d3a597d9fa81931e001ef9b1bd0 (diff) | |
download | toolchain_gcc-f378ebf14df0952eae870c9865bab8326aa8f137.tar.gz toolchain_gcc-f378ebf14df0952eae870c9865bab8326aa8f137.tar.bz2 toolchain_gcc-f378ebf14df0952eae870c9865bab8326aa8f137.zip |
Delete old versions of GCC.
Change-Id: I710f125d905290e1024cbd67f48299861790c66c
Diffstat (limited to 'gcc-4.4.0/gcc/fortran/options.c')
-rw-r--r-- | gcc-4.4.0/gcc/fortran/options.c | 849 |
1 files changed, 0 insertions, 849 deletions
diff --git a/gcc-4.4.0/gcc/fortran/options.c b/gcc-4.4.0/gcc/fortran/options.c deleted file mode 100644 index 7a800ce8c..000000000 --- a/gcc-4.4.0/gcc/fortran/options.c +++ /dev/null @@ -1,849 +0,0 @@ -/* Parse and display command line options. - Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008 - Free Software Foundation, Inc. - Contributed by Andy Vaught - -This file is part of GCC. - -GCC is free software; you can redistribute it and/or modify it under -the terms of the GNU General Public License as published by the Free -Software Foundation; either version 3, or (at your option) any later -version. - -GCC is distributed in the hope that it will be useful, but WITHOUT ANY -WARRANTY; without even the implied warranty of MERCHANTABILITY or -FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License -for more details. - -You should have received a copy of the GNU General Public License -along with GCC; see the file COPYING3. If not see -<http://www.gnu.org/licenses/>. */ - -#include "config.h" -#include "system.h" -#include "coretypes.h" -#include "tree.h" -#include "flags.h" -#include "intl.h" -#include "opts.h" -#include "options.h" -#include "params.h" -#include "tree-inline.h" -#include "gfortran.h" -#include "target.h" -#include "cpp.h" - -gfc_option_t gfc_option; - - -/* Set flags that control warnings and errors for different - Fortran standards to their default values. Keep in sync with - libgfortran/runtime/compile_options.c (init_compile_options). */ - -static void -set_default_std_flags (void) -{ - gfc_option.allow_std = GFC_STD_F95_OBS | GFC_STD_F95_DEL - | GFC_STD_F2003 | GFC_STD_F2008 | GFC_STD_F95 | GFC_STD_F77 - | GFC_STD_GNU | GFC_STD_LEGACY; - gfc_option.warn_std = GFC_STD_F95_DEL | GFC_STD_LEGACY; -} - - -/* Get ready for options handling. Keep in sync with - libgfortran/runtime/compile_options.c (init_compile_options). */ - -unsigned int -gfc_init_options (unsigned int argc, const char **argv) -{ - gfc_source_file = NULL; - gfc_option.module_dir = NULL; - gfc_option.source_form = FORM_UNKNOWN; - gfc_option.fixed_line_length = 72; - gfc_option.free_line_length = 132; - gfc_option.max_continue_fixed = 255; - gfc_option.max_continue_free = 255; - gfc_option.max_identifier_length = GFC_MAX_SYMBOL_LEN; - gfc_option.max_subrecord_length = 0; - gfc_option.flag_max_array_constructor = 65535; - gfc_option.convert = GFC_CONVERT_NATIVE; - gfc_option.record_marker = 0; - gfc_option.dump_parse_tree = 0; - - gfc_option.warn_aliasing = 0; - gfc_option.warn_ampersand = 0; - gfc_option.warn_character_truncation = 0; - gfc_option.warn_array_temp = 0; - gfc_option.warn_conversion = 0; - 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; - gfc_option.warn_align_commons = 1; - gfc_option.max_errors = 25; - - gfc_option.flag_all_intrinsics = 0; - gfc_option.flag_default_double = 0; - gfc_option.flag_default_integer = 0; - gfc_option.flag_default_real = 0; - gfc_option.flag_dollar_ok = 0; - gfc_option.flag_underscoring = 1; - gfc_option.flag_f2c = 0; - gfc_option.flag_second_underscore = -1; - gfc_option.flag_implicit_none = 0; - - /* Default value of flag_max_stack_var_size is set in gfc_post_options. */ - gfc_option.flag_max_stack_var_size = -2; - - gfc_option.flag_range_check = 1; - gfc_option.flag_pack_derived = 0; - gfc_option.flag_repack_arrays = 0; - gfc_option.flag_preprocessed = 0; - gfc_option.flag_automatic = 1; - gfc_option.flag_backslash = 0; - gfc_option.flag_module_private = 0; - gfc_option.flag_backtrace = 0; - gfc_option.flag_check_array_temporaries = 0; - gfc_option.flag_allow_leading_underscore = 0; - gfc_option.flag_dump_core = 0; - gfc_option.flag_external_blas = 0; - gfc_option.blas_matmul_limit = 30; - gfc_option.flag_cray_pointer = 0; - gfc_option.flag_d_lines = -1; - gfc_option.flag_openmp = 0; - gfc_option.flag_sign_zero = 1; - gfc_option.flag_recursive = 0; - gfc_option.flag_init_integer = GFC_INIT_INTEGER_OFF; - gfc_option.flag_init_integer_value = 0; - gfc_option.flag_init_real = GFC_INIT_REAL_OFF; - gfc_option.flag_init_logical = GFC_INIT_LOGICAL_OFF; - gfc_option.flag_init_character = GFC_INIT_CHARACTER_OFF; - gfc_option.flag_init_character_value = (char)0; - gfc_option.flag_align_commons = 1; - - gfc_option.fpe = 0; - - /* Argument pointers cannot point to anything but their argument. */ - flag_argument_noalias = 3; - - flag_errno_math = 0; - - set_default_std_flags (); - - /* -fshort-enums can be default on some targets. */ - gfc_option.fshort_enums = targetm.default_short_enums (); - - /* Initialize cpp-related options. */ - gfc_cpp_init_options(argc, argv); - - return CL_Fortran; -} - - -/* Determine the source form from the filename extension. We assume - case insensitivity. */ - -static gfc_source_form -form_from_filename (const char *filename) -{ - static const struct - { - const char *extension; - gfc_source_form form; - } - exttype[] = - { - { - ".f90", FORM_FREE} - , - { - ".f95", FORM_FREE} - , - { - ".f03", FORM_FREE} - , - { - ".f08", FORM_FREE} - , - { - ".f", FORM_FIXED} - , - { - ".for", FORM_FIXED} - , - { - ".ftn", FORM_FIXED} - , - { - "", FORM_UNKNOWN} - }; /* sentinel value */ - - gfc_source_form f_form; - const char *fileext; - int i; - - /* Find end of file name. Note, filename is either a NULL pointer or - a NUL terminated string. */ - i = 0; - while (filename[i] != '\0') - i++; - - /* Find last period. */ - while (i >= 0 && (filename[i] != '.')) - i--; - - /* Did we see a file extension? */ - if (i < 0) - return FORM_UNKNOWN; /* Nope */ - - /* Get file extension and compare it to others. */ - fileext = &(filename[i]); - - i = -1; - f_form = FORM_UNKNOWN; - do - { - i++; - if (strcasecmp (fileext, exttype[i].extension) == 0) - { - f_form = exttype[i].form; - break; - } - } - while (exttype[i].form != FORM_UNKNOWN); - - return f_form; -} - - -/* Finalize commandline options. */ - -bool -gfc_post_options (const char **pfilename) -{ - const char *filename = *pfilename, *canon_source_file = NULL; - char *source_path; - int i; - - /* Issue an error if -fwhole-program was used. */ - if (flag_whole_program) - gfc_fatal_error ("Option -fwhole-program is not supported for Fortran"); - - /* Verify the input file name. */ - if (!filename || strcmp (filename, "-") == 0) - { - filename = ""; - } - - if (gfc_option.flag_preprocessed) - { - /* For preprocessed files, if the first tokens are of the form # NUM. - handle the directives so we know the original file name. */ - gfc_source_file = gfc_read_orig_filename (filename, &canon_source_file); - if (gfc_source_file == NULL) - gfc_source_file = filename; - else - *pfilename = gfc_source_file; - } - else - gfc_source_file = filename; - - if (canon_source_file == NULL) - canon_source_file = gfc_source_file; - - /* Adds the path where the source file is to the list of include files. */ - - i = strlen (canon_source_file); - while (i > 0 && !IS_DIR_SEPARATOR (canon_source_file[i])) - i--; - - if (i != 0) - { - source_path = (char *) alloca (i + 1); - memcpy (source_path, canon_source_file, i); - source_path[i] = 0; - gfc_add_include_path (source_path, true, true); - } - else - gfc_add_include_path (".", true, true); - - if (canon_source_file != gfc_source_file) - gfc_free (CONST_CAST (char *, canon_source_file)); - - /* Decide which form the file will be read in as. */ - - if (gfc_option.source_form != FORM_UNKNOWN) - gfc_current_form = gfc_option.source_form; - else - { - gfc_current_form = form_from_filename (filename); - - if (gfc_current_form == FORM_UNKNOWN) - { - gfc_current_form = FORM_FREE; - gfc_warning_now ("Reading file '%s' as free form", - (filename[0] == '\0') ? "<stdin>" : filename); - } - } - - /* If the user specified -fd-lines-as-{code|comments} verify that we're - in fixed form. */ - if (gfc_current_form == FORM_FREE) - { - if (gfc_option.flag_d_lines == 0) - gfc_warning_now ("'-fd-lines-as-comments' has no effect " - "in free form"); - else if (gfc_option.flag_d_lines == 1) - gfc_warning_now ("'-fd-lines-as-code' has no effect in free form"); - } - - /* If -pedantic, warn about the use of GNU extensions. */ - if (pedantic && (gfc_option.allow_std & GFC_STD_GNU) != 0) - gfc_option.warn_std |= GFC_STD_GNU; - /* -std=legacy -pedantic is effectively -std=gnu. */ - if (pedantic && (gfc_option.allow_std & GFC_STD_LEGACY) != 0) - gfc_option.warn_std |= GFC_STD_F95_OBS | GFC_STD_F95_DEL | GFC_STD_LEGACY; - - /* If the user didn't explicitly specify -f(no)-second-underscore we - use it if we're trying to be compatible with f2c, and not - otherwise. */ - if (gfc_option.flag_second_underscore == -1) - gfc_option.flag_second_underscore = gfc_option.flag_f2c; - - if (!gfc_option.flag_automatic && gfc_option.flag_max_stack_var_size != -2 - && gfc_option.flag_max_stack_var_size != 0) - gfc_warning_now ("Flag -fno-automatic overwrites -fmax-stack-var-size=%d", - gfc_option.flag_max_stack_var_size); - else if (!gfc_option.flag_automatic && gfc_option.flag_recursive) - gfc_warning_now ("Flag -fno-automatic overwrites -frecursive"); - else if (!gfc_option.flag_automatic && gfc_option.flag_openmp) - gfc_warning_now ("Flag -fno-automatic overwrites -frecursive implied by " - "-fopenmp"); - else if (gfc_option.flag_max_stack_var_size != -2 - && gfc_option.flag_recursive) - gfc_warning_now ("Flag -frecursive overwrites -fmax-stack-var-size=%d", - gfc_option.flag_max_stack_var_size); - else if (gfc_option.flag_max_stack_var_size != -2 - && gfc_option.flag_openmp) - gfc_warning_now ("Flag -fmax-stack-var-size=%d overwrites -frecursive " - "implied by -fopenmp", - gfc_option.flag_max_stack_var_size); - - /* Implied -frecursive; implemented as -fmax-stack-var-size=-1. */ - if (gfc_option.flag_max_stack_var_size == -2 && gfc_option.flag_openmp) - gfc_option.flag_max_stack_var_size = -1; - - /* Set default. */ - if (gfc_option.flag_max_stack_var_size == -2) - gfc_option.flag_max_stack_var_size = 32768; - - /* Implement -frecursive as -fmax-stack-var-size=-1. */ - if (gfc_option.flag_recursive) - gfc_option.flag_max_stack_var_size = -1; - - /* Implement -fno-automatic as -fmax-stack-var-size=0. */ - if (!gfc_option.flag_automatic) - gfc_option.flag_max_stack_var_size = 0; - - if (pedantic) - { - gfc_option.warn_ampersand = 1; - gfc_option.warn_tabs = 0; - } - - gfc_cpp_post_options (); - -/* FIXME: return gfc_cpp_preprocess_only (); - - The return value of this function indicates whether the - backend needs to be initialized. On -E, we don't need - the backend. However, if we return 'true' here, an - ICE occurs. Initializing the backend doesn't hurt much, - hence, for now we can live with it as is. */ - return false; -} - - -/* Set the options for -Wall. */ - -static void -set_Wall (int setting) -{ - gfc_option.warn_aliasing = setting; - gfc_option.warn_ampersand = 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; - gfc_option.warn_character_truncation = setting; - - warn_unused = setting; - warn_return_type = setting; - warn_switch = setting; - - /* 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 (setting == 0) - warn_uninitialized = 0; - else if (warn_uninitialized != 1) - warn_uninitialized = 2; -} - - -static void -gfc_handle_module_path_options (const char *arg) -{ - - if (gfc_option.module_dir != NULL) - gfc_fatal_error ("gfortran: Only one -J option allowed"); - - gfc_option.module_dir = (char *) gfc_getmem (strlen (arg) + 2); - strcpy (gfc_option.module_dir, arg); - strcat (gfc_option.module_dir, "/"); - - gfc_add_include_path (gfc_option.module_dir, true, false); -} - - -static void -gfc_handle_fpe_trap_option (const char *arg) -{ - int result, pos = 0, n; - static const char * const exception[] = { "invalid", "denormal", "zero", - "overflow", "underflow", - "precision", NULL }; - static const int opt_exception[] = { GFC_FPE_INVALID, GFC_FPE_DENORMAL, - GFC_FPE_ZERO, GFC_FPE_OVERFLOW, - GFC_FPE_UNDERFLOW, GFC_FPE_PRECISION, - 0 }; - - while (*arg) - { - while (*arg == ',') - arg++; - - while (arg[pos] && arg[pos] != ',') - pos++; - - result = 0; - for (n = 0; exception[n] != NULL; n++) - { - if (exception[n] && strncmp (exception[n], arg, pos) == 0) - { - gfc_option.fpe |= opt_exception[n]; - arg += pos; - pos = 0; - result = 1; - break; - } - } - if (!result) - gfc_fatal_error ("Argument to -ffpe-trap is not valid: %s", arg); - } -} - - -/* Handle command-line options. Returns 0 if unrecognized, 1 if - recognized and handled. */ - -int -gfc_handle_option (size_t scode, const char *arg, int value) -{ - int result = 1; - enum opt_code code = (enum opt_code) scode; - - /* Ignore file names. */ - if (code == N_OPTS) - return 1; - - if (gfc_cpp_handle_option (scode, arg, value) == 1) - return 1; - - switch (code) - { - default: - result = 0; - break; - - case OPT_Wall: - set_Wall (value); - break; - - case OPT_Waliasing: - gfc_option.warn_aliasing = value; - break; - - case OPT_Wampersand: - gfc_option.warn_ampersand = value; - break; - - case OPT_Warray_temporaries: - gfc_option.warn_array_temp = value; - break; - - case OPT_Wcharacter_truncation: - gfc_option.warn_character_truncation = value; - break; - - case OPT_Wconversion: - gfc_option.warn_conversion = value; - break; - - case OPT_Wimplicit_interface: - gfc_option.warn_implicit_interface = value; - break; - - case OPT_Wline_truncation: - gfc_option.warn_line_truncation = value; - break; - - case OPT_Wreturn_type: - warn_return_type = value; - break; - - case OPT_Wsurprising: - gfc_option.warn_surprising = value; - break; - - case OPT_Wtabs: - gfc_option.warn_tabs = value; - break; - - case OPT_Wunderflow: - gfc_option.warn_underflow = value; - break; - - case OPT_Wintrinsic_shadow: - gfc_option.warn_intrinsic_shadow = value; - break; - - case OPT_Walign_commons: - gfc_option.warn_align_commons = value; - break; - - case OPT_fall_intrinsics: - gfc_option.flag_all_intrinsics = 1; - break; - - case OPT_fautomatic: - gfc_option.flag_automatic = value; - break; - - case OPT_fallow_leading_underscore: - gfc_option.flag_allow_leading_underscore = value; - break; - - case OPT_fbackslash: - gfc_option.flag_backslash = value; - break; - - case OPT_fbacktrace: - gfc_option.flag_backtrace = value; - break; - - case OPT_fcheck_array_temporaries: - gfc_option.flag_check_array_temporaries = value; - break; - - case OPT_fdump_core: - gfc_option.flag_dump_core = value; - break; - - case OPT_fcray_pointer: - gfc_option.flag_cray_pointer = value; - break; - - case OPT_ff2c: - gfc_option.flag_f2c = value; - break; - - case OPT_fdollar_ok: - gfc_option.flag_dollar_ok = value; - break; - - case OPT_fexternal_blas: - gfc_option.flag_external_blas = value; - break; - - case OPT_fblas_matmul_limit_: - gfc_option.blas_matmul_limit = value; - break; - - case OPT_fd_lines_as_code: - gfc_option.flag_d_lines = 1; - break; - - case OPT_fd_lines_as_comments: - gfc_option.flag_d_lines = 0; - break; - - case OPT_fdump_parse_tree: - gfc_option.dump_parse_tree = value; - break; - - case OPT_ffixed_form: - gfc_option.source_form = FORM_FIXED; - break; - - case OPT_ffixed_line_length_none: - gfc_option.fixed_line_length = 0; - break; - - case OPT_ffixed_line_length_: - if (value != 0 && value < 7) - gfc_fatal_error ("Fixed line length must be at least seven."); - gfc_option.fixed_line_length = value; - break; - - case OPT_ffree_form: - gfc_option.source_form = FORM_FREE; - break; - - case OPT_fopenmp: - gfc_option.flag_openmp = value; - break; - - case OPT_ffree_line_length_none: - gfc_option.free_line_length = 0; - break; - - case OPT_ffree_line_length_: - if (value != 0 && value < 4) - gfc_fatal_error ("Free line length must be at least three."); - gfc_option.free_line_length = value; - break; - - case OPT_funderscoring: - gfc_option.flag_underscoring = value; - break; - - case OPT_fsecond_underscore: - gfc_option.flag_second_underscore = value; - break; - - case OPT_static_libgfortran: -#ifndef HAVE_LD_STATIC_DYNAMIC - gfc_fatal_error ("-static-libgfortran is not supported in this " - "configuration"); -#endif - break; - - case OPT_fimplicit_none: - gfc_option.flag_implicit_none = value; - break; - - case OPT_fintrinsic_modules_path: - gfc_add_include_path (arg, false, false); - gfc_add_intrinsic_modules_path (arg); - break; - - case OPT_fmax_array_constructor_: - gfc_option.flag_max_array_constructor = value > 65535 ? value : 65535; - break; - - case OPT_fmax_errors_: - gfc_option.max_errors = value; - break; - - case OPT_fmax_stack_var_size_: - gfc_option.flag_max_stack_var_size = value; - break; - - case OPT_fmodule_private: - gfc_option.flag_module_private = value; - break; - - case OPT_frange_check: - gfc_option.flag_range_check = value; - break; - - case OPT_fpack_derived: - gfc_option.flag_pack_derived = value; - break; - - case OPT_frepack_arrays: - gfc_option.flag_repack_arrays = value; - break; - - case OPT_fpreprocessed: - gfc_option.flag_preprocessed = value; - break; - - case OPT_fmax_identifier_length_: - if (value > GFC_MAX_SYMBOL_LEN) - gfc_fatal_error ("Maximum supported identifier length is %d", - GFC_MAX_SYMBOL_LEN); - gfc_option.max_identifier_length = value; - break; - - case OPT_fdefault_integer_8: - gfc_option.flag_default_integer = value; - break; - - case OPT_fdefault_real_8: - gfc_option.flag_default_real = value; - break; - - case OPT_fdefault_double_8: - gfc_option.flag_default_double = value; - break; - - case OPT_finit_local_zero: - gfc_option.flag_init_integer = GFC_INIT_INTEGER_ON; - gfc_option.flag_init_integer_value = 0; - gfc_option.flag_init_real = GFC_INIT_REAL_ZERO; - gfc_option.flag_init_logical = GFC_INIT_LOGICAL_FALSE; - gfc_option.flag_init_character = GFC_INIT_CHARACTER_ON; - gfc_option.flag_init_character_value = (char)0; - break; - - case OPT_finit_logical_: - if (!strcasecmp (arg, "false")) - gfc_option.flag_init_logical = GFC_INIT_LOGICAL_FALSE; - else if (!strcasecmp (arg, "true")) - gfc_option.flag_init_logical = GFC_INIT_LOGICAL_TRUE; - else - gfc_fatal_error ("Unrecognized option to -finit-logical: %s", - arg); - break; - - case OPT_finit_real_: - if (!strcasecmp (arg, "zero")) - gfc_option.flag_init_real = GFC_INIT_REAL_ZERO; - else if (!strcasecmp (arg, "nan")) - gfc_option.flag_init_real = GFC_INIT_REAL_NAN; - else if (!strcasecmp (arg, "inf")) - gfc_option.flag_init_real = GFC_INIT_REAL_INF; - else if (!strcasecmp (arg, "-inf")) - gfc_option.flag_init_real = GFC_INIT_REAL_NEG_INF; - else - gfc_fatal_error ("Unrecognized option to -finit-real: %s", - arg); - break; - - case OPT_finit_integer_: - gfc_option.flag_init_integer = GFC_INIT_INTEGER_ON; - gfc_option.flag_init_integer_value = atoi (arg); - break; - - case OPT_finit_character_: - if (value >= 0 && value <= 127) - { - gfc_option.flag_init_character = GFC_INIT_CHARACTER_ON; - gfc_option.flag_init_character_value = (char)value; - } - else - gfc_fatal_error ("The value of n in -finit-character=n must be " - "between 0 and 127"); - break; - - case OPT_I: - gfc_add_include_path (arg, true, false); - break; - - case OPT_J: - gfc_handle_module_path_options (arg); - break; - - case OPT_fsign_zero: - gfc_option.flag_sign_zero = value; - break; - - case OPT_ffpe_trap_: - gfc_handle_fpe_trap_option (arg); - break; - - case OPT_std_f95: - gfc_option.allow_std = GFC_STD_F95_OBS | GFC_STD_F95 | GFC_STD_F77; - gfc_option.warn_std = GFC_STD_F95_OBS; - gfc_option.max_continue_fixed = 19; - gfc_option.max_continue_free = 39; - gfc_option.max_identifier_length = 31; - gfc_option.warn_ampersand = 1; - gfc_option.warn_tabs = 0; - break; - - case OPT_std_f2003: - gfc_option.allow_std = GFC_STD_F95_OBS | GFC_STD_F77 - | GFC_STD_F2003 | GFC_STD_F95; - gfc_option.warn_std = GFC_STD_F95_OBS; - gfc_option.max_identifier_length = 63; - gfc_option.warn_ampersand = 1; - gfc_option.warn_tabs = 0; - break; - - case OPT_std_f2008: - gfc_option.allow_std = GFC_STD_F95_OBS | GFC_STD_F77 - | GFC_STD_F2003 | GFC_STD_F95 | GFC_STD_F2008; - gfc_option.warn_std = GFC_STD_F95_OBS; - gfc_option.max_identifier_length = 63; - gfc_option.warn_ampersand = 1; - gfc_option.warn_tabs = 0; - break; - - case OPT_std_gnu: - set_default_std_flags (); - break; - - case OPT_std_legacy: - set_default_std_flags (); - gfc_option.warn_std = 0; - break; - - case OPT_Wintrinsics_std: - gfc_option.warn_intrinsics_std = value; - break; - - case OPT_fshort_enums: - gfc_option.fshort_enums = 1; - break; - - case OPT_fconvert_little_endian: - gfc_option.convert = GFC_CONVERT_LITTLE; - break; - - case OPT_fconvert_big_endian: - gfc_option.convert = GFC_CONVERT_BIG; - break; - - case OPT_fconvert_native: - gfc_option.convert = GFC_CONVERT_NATIVE; - break; - - case OPT_fconvert_swap: - gfc_option.convert = GFC_CONVERT_SWAP; - break; - - case OPT_frecord_marker_4: - gfc_option.record_marker = 4; - break; - - case OPT_frecord_marker_8: - gfc_option.record_marker = 8; - break; - - case OPT_fmax_subrecord_length_: - if (value > MAX_SUBRECORD_LENGTH) - gfc_fatal_error ("Maximum subrecord length cannot exceed %d", - MAX_SUBRECORD_LENGTH); - - gfc_option.max_subrecord_length = value; - break; - - case OPT_frecursive: - gfc_option.flag_recursive = 1; - break; - - case OPT_falign_commons: - gfc_option.flag_align_commons = value; - break; - } - - return result; -} |