1 /* Parse and display command line options.
2 Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009
3 Free Software Foundation, Inc.
4 Contributed by Andy Vaught
6 This file is part of GCC.
8 GCC is free software; you can redistribute it and/or modify it under
9 the terms of the GNU General Public License as published by the Free
10 Software Foundation; either version 3, or (at your option) any later
13 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
14 WARRANTY; without even the implied warranty of MERCHANTABILITY or
15 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
18 You should have received a copy of the GNU General Public License
19 along with GCC; see the file COPYING3. If not see
20 <http://www.gnu.org/licenses/>. */
24 #include "coretypes.h"
31 #include "tree-inline.h"
38 gfc_option_t gfc_option;
41 /* Set flags that control warnings and errors for different
42 Fortran standards to their default values. Keep in sync with
43 libgfortran/runtime/compile_options.c (init_compile_options). */
46 set_default_std_flags (void)
48 gfc_option.allow_std = GFC_STD_F95_OBS | GFC_STD_F95_DEL
49 | GFC_STD_F2003 | GFC_STD_F2008 | GFC_STD_F95 | GFC_STD_F77
50 | GFC_STD_GNU | GFC_STD_LEGACY;
51 gfc_option.warn_std = GFC_STD_F95_DEL | GFC_STD_LEGACY;
55 /* Get ready for options handling. Keep in sync with
56 libgfortran/runtime/compile_options.c (init_compile_options). */
59 gfc_init_options (unsigned int argc, const char **argv)
61 gfc_source_file = NULL;
62 gfc_option.module_dir = NULL;
63 gfc_option.source_form = FORM_UNKNOWN;
64 gfc_option.fixed_line_length = 72;
65 gfc_option.free_line_length = 132;
66 gfc_option.max_continue_fixed = 255;
67 gfc_option.max_continue_free = 255;
68 gfc_option.max_identifier_length = GFC_MAX_SYMBOL_LEN;
69 gfc_option.max_subrecord_length = 0;
70 gfc_option.flag_max_array_constructor = 65535;
71 gfc_option.convert = GFC_CONVERT_NATIVE;
72 gfc_option.record_marker = 0;
73 gfc_option.dump_parse_tree = 0;
75 gfc_option.warn_aliasing = 0;
76 gfc_option.warn_ampersand = 0;
77 gfc_option.warn_character_truncation = 0;
78 gfc_option.warn_array_temp = 0;
79 gfc_option.warn_conversion = 0;
80 gfc_option.warn_implicit_interface = 0;
81 gfc_option.warn_line_truncation = 0;
82 gfc_option.warn_surprising = 0;
83 gfc_option.warn_tabs = 1;
84 gfc_option.warn_underflow = 1;
85 gfc_option.warn_intrinsic_shadow = 0;
86 gfc_option.warn_intrinsics_std = 0;
87 gfc_option.warn_align_commons = 1;
88 gfc_option.max_errors = 25;
90 gfc_option.flag_all_intrinsics = 0;
91 gfc_option.flag_default_double = 0;
92 gfc_option.flag_default_integer = 0;
93 gfc_option.flag_default_real = 0;
94 gfc_option.flag_dollar_ok = 0;
95 gfc_option.flag_underscoring = 1;
96 gfc_option.flag_whole_file = 0;
97 gfc_option.flag_f2c = 0;
98 gfc_option.flag_second_underscore = -1;
99 gfc_option.flag_implicit_none = 0;
101 /* Default value of flag_max_stack_var_size is set in gfc_post_options. */
102 gfc_option.flag_max_stack_var_size = -2;
104 gfc_option.flag_range_check = 1;
105 gfc_option.flag_pack_derived = 0;
106 gfc_option.flag_repack_arrays = 0;
107 gfc_option.flag_preprocessed = 0;
108 gfc_option.flag_automatic = 1;
109 gfc_option.flag_backslash = 0;
110 gfc_option.flag_module_private = 0;
111 gfc_option.flag_backtrace = 0;
112 gfc_option.flag_allow_leading_underscore = 0;
113 gfc_option.flag_dump_core = 0;
114 gfc_option.flag_external_blas = 0;
115 gfc_option.blas_matmul_limit = 30;
116 gfc_option.flag_cray_pointer = 0;
117 gfc_option.flag_d_lines = -1;
118 gfc_option.flag_openmp = 0;
119 gfc_option.flag_sign_zero = 1;
120 gfc_option.flag_recursive = 0;
121 gfc_option.flag_init_integer = GFC_INIT_INTEGER_OFF;
122 gfc_option.flag_init_integer_value = 0;
123 gfc_option.flag_init_real = GFC_INIT_REAL_OFF;
124 gfc_option.flag_init_logical = GFC_INIT_LOGICAL_OFF;
125 gfc_option.flag_init_character = GFC_INIT_CHARACTER_OFF;
126 gfc_option.flag_init_character_value = (char)0;
127 gfc_option.flag_align_commons = 1;
130 gfc_option.rtcheck = 0;
132 /* Argument pointers cannot point to anything but their argument. */
133 flag_argument_noalias = 3;
137 set_default_std_flags ();
139 /* -fshort-enums can be default on some targets. */
140 flag_short_enums = targetm.default_short_enums ();
142 /* Initialize cpp-related options. */
143 gfc_cpp_init_options(argc, argv);
149 /* Determine the source form from the filename extension. We assume
150 case insensitivity. */
152 static gfc_source_form
153 form_from_filename (const char *filename)
157 const char *extension;
158 gfc_source_form form;
185 }; /* sentinel value */
187 gfc_source_form f_form;
191 /* Find end of file name. Note, filename is either a NULL pointer or
192 a NUL terminated string. */
194 while (filename[i] != '\0')
197 /* Find last period. */
198 while (i >= 0 && (filename[i] != '.'))
201 /* Did we see a file extension? */
203 return FORM_UNKNOWN; /* Nope */
205 /* Get file extension and compare it to others. */
206 fileext = &(filename[i]);
209 f_form = FORM_UNKNOWN;
213 if (strcasecmp (fileext, exttype[i].extension) == 0)
215 f_form = exttype[i].form;
219 while (exttype[i].form != FORM_UNKNOWN);
225 /* Finalize commandline options. */
228 gfc_post_options (const char **pfilename)
230 const char *filename = *pfilename, *canon_source_file = NULL;
234 /* Excess precision other than "fast" requires front-end
236 if (flag_excess_precision_cmdline == EXCESS_PRECISION_STANDARD
237 && TARGET_FLT_EVAL_METHOD_NON_DEFAULT)
238 sorry ("-fexcess-precision=standard for Fortran");
239 flag_excess_precision_cmdline = EXCESS_PRECISION_FAST;
241 /* Whole program needs whole file mode. */
242 if (flag_whole_program)
243 gfc_option.flag_whole_file = 1;
245 /* -fbounds-check is equivalent to -fcheck=bounds */
246 if (flag_bounds_check)
247 gfc_option.rtcheck |= GFC_RTCHECK_BOUNDS;
249 if (flag_compare_debug)
250 gfc_option.dump_parse_tree = 0;
252 /* Verify the input file name. */
253 if (!filename || strcmp (filename, "-") == 0)
258 if (gfc_option.flag_preprocessed)
260 /* For preprocessed files, if the first tokens are of the form # NUM.
261 handle the directives so we know the original file name. */
262 gfc_source_file = gfc_read_orig_filename (filename, &canon_source_file);
263 if (gfc_source_file == NULL)
264 gfc_source_file = filename;
266 *pfilename = gfc_source_file;
269 gfc_source_file = filename;
271 if (canon_source_file == NULL)
272 canon_source_file = gfc_source_file;
274 /* Adds the path where the source file is to the list of include files. */
276 i = strlen (canon_source_file);
277 while (i > 0 && !IS_DIR_SEPARATOR (canon_source_file[i]))
282 source_path = (char *) alloca (i + 1);
283 memcpy (source_path, canon_source_file, i);
285 gfc_add_include_path (source_path, true, true);
288 gfc_add_include_path (".", true, true);
290 if (canon_source_file != gfc_source_file)
291 gfc_free (CONST_CAST (char *, canon_source_file));
293 /* Decide which form the file will be read in as. */
295 if (gfc_option.source_form != FORM_UNKNOWN)
296 gfc_current_form = gfc_option.source_form;
299 gfc_current_form = form_from_filename (filename);
301 if (gfc_current_form == FORM_UNKNOWN)
303 gfc_current_form = FORM_FREE;
304 gfc_warning_now ("Reading file '%s' as free form",
305 (filename[0] == '\0') ? "<stdin>" : filename);
309 /* If the user specified -fd-lines-as-{code|comments} verify that we're
311 if (gfc_current_form == FORM_FREE)
313 if (gfc_option.flag_d_lines == 0)
314 gfc_warning_now ("'-fd-lines-as-comments' has no effect "
316 else if (gfc_option.flag_d_lines == 1)
317 gfc_warning_now ("'-fd-lines-as-code' has no effect in free form");
320 /* If -pedantic, warn about the use of GNU extensions. */
321 if (pedantic && (gfc_option.allow_std & GFC_STD_GNU) != 0)
322 gfc_option.warn_std |= GFC_STD_GNU;
323 /* -std=legacy -pedantic is effectively -std=gnu. */
324 if (pedantic && (gfc_option.allow_std & GFC_STD_LEGACY) != 0)
325 gfc_option.warn_std |= GFC_STD_F95_OBS | GFC_STD_F95_DEL | GFC_STD_LEGACY;
327 /* If the user didn't explicitly specify -f(no)-second-underscore we
328 use it if we're trying to be compatible with f2c, and not
330 if (gfc_option.flag_second_underscore == -1)
331 gfc_option.flag_second_underscore = gfc_option.flag_f2c;
333 if (!gfc_option.flag_automatic && gfc_option.flag_max_stack_var_size != -2
334 && gfc_option.flag_max_stack_var_size != 0)
335 gfc_warning_now ("Flag -fno-automatic overwrites -fmax-stack-var-size=%d",
336 gfc_option.flag_max_stack_var_size);
337 else if (!gfc_option.flag_automatic && gfc_option.flag_recursive)
338 gfc_warning_now ("Flag -fno-automatic overwrites -frecursive");
339 else if (!gfc_option.flag_automatic && gfc_option.flag_openmp)
340 gfc_warning_now ("Flag -fno-automatic overwrites -frecursive implied by "
342 else if (gfc_option.flag_max_stack_var_size != -2
343 && gfc_option.flag_recursive)
344 gfc_warning_now ("Flag -frecursive overwrites -fmax-stack-var-size=%d",
345 gfc_option.flag_max_stack_var_size);
346 else if (gfc_option.flag_max_stack_var_size != -2
347 && gfc_option.flag_openmp)
348 gfc_warning_now ("Flag -fmax-stack-var-size=%d overwrites -frecursive "
349 "implied by -fopenmp",
350 gfc_option.flag_max_stack_var_size);
352 /* Implied -frecursive; implemented as -fmax-stack-var-size=-1. */
353 if (gfc_option.flag_max_stack_var_size == -2 && gfc_option.flag_openmp)
354 gfc_option.flag_max_stack_var_size = -1;
357 if (gfc_option.flag_max_stack_var_size == -2)
358 gfc_option.flag_max_stack_var_size = 32768;
360 /* Implement -frecursive as -fmax-stack-var-size=-1. */
361 if (gfc_option.flag_recursive)
362 gfc_option.flag_max_stack_var_size = -1;
364 /* Implement -fno-automatic as -fmax-stack-var-size=0. */
365 if (!gfc_option.flag_automatic)
366 gfc_option.flag_max_stack_var_size = 0;
370 gfc_option.warn_ampersand = 1;
371 gfc_option.warn_tabs = 0;
374 if (pedantic && gfc_option.flag_whole_file)
375 gfc_option.flag_whole_file = 2;
377 gfc_cpp_post_options ();
379 /* FIXME: return gfc_cpp_preprocess_only ();
381 The return value of this function indicates whether the
382 backend needs to be initialized. On -E, we don't need
383 the backend. However, if we return 'true' here, an
384 ICE occurs. Initializing the backend doesn't hurt much,
385 hence, for now we can live with it as is. */
390 /* Set the options for -Wall. */
393 set_Wall (int setting)
395 gfc_option.warn_aliasing = setting;
396 gfc_option.warn_ampersand = setting;
397 gfc_option.warn_line_truncation = setting;
398 gfc_option.warn_surprising = setting;
399 gfc_option.warn_tabs = !setting;
400 gfc_option.warn_underflow = setting;
401 gfc_option.warn_intrinsic_shadow = setting;
402 gfc_option.warn_intrinsics_std = setting;
403 gfc_option.warn_character_truncation = setting;
405 warn_unused = setting;
406 warn_return_type = setting;
407 warn_switch = setting;
409 /* We save the value of warn_uninitialized, since if they put
410 -Wuninitialized on the command line, we need to generate a
411 warning about not using it without also specifying -O. */
413 warn_uninitialized = 0;
414 else if (warn_uninitialized != 1)
415 warn_uninitialized = 2;
420 gfc_handle_module_path_options (const char *arg)
423 if (gfc_option.module_dir != NULL)
424 gfc_fatal_error ("gfortran: Only one -J option allowed");
426 gfc_option.module_dir = (char *) gfc_getmem (strlen (arg) + 2);
427 strcpy (gfc_option.module_dir, arg);
428 strcat (gfc_option.module_dir, "/");
430 gfc_add_include_path (gfc_option.module_dir, true, false);
435 gfc_handle_fpe_trap_option (const char *arg)
437 int result, pos = 0, n;
438 static const char * const exception[] = { "invalid", "denormal", "zero",
439 "overflow", "underflow",
441 static const int opt_exception[] = { GFC_FPE_INVALID, GFC_FPE_DENORMAL,
442 GFC_FPE_ZERO, GFC_FPE_OVERFLOW,
443 GFC_FPE_UNDERFLOW, GFC_FPE_PRECISION,
451 while (arg[pos] && arg[pos] != ',')
455 for (n = 0; exception[n] != NULL; n++)
457 if (exception[n] && strncmp (exception[n], arg, pos) == 0)
459 gfc_option.fpe |= opt_exception[n];
467 gfc_fatal_error ("Argument to -ffpe-trap is not valid: %s", arg);
473 gfc_handle_runtime_check_option (const char *arg)
475 int result, pos = 0, n;
476 static const char * const optname[] = { "all", "bounds", "array-temps",
477 "recursion", "do", "pointer", NULL };
478 static const int optmask[] = { GFC_RTCHECK_ALL, GFC_RTCHECK_BOUNDS,
479 GFC_RTCHECK_ARRAY_TEMPS,
480 GFC_RTCHECK_RECURSION, GFC_RTCHECK_DO,
489 while (arg[pos] && arg[pos] != ',')
493 for (n = 0; optname[n] != NULL; n++)
495 if (optname[n] && strncmp (optname[n], arg, pos) == 0)
497 gfc_option.rtcheck |= optmask[n];
505 gfc_fatal_error ("Argument to -fcheck is not valid: %s", arg);
510 /* Handle command-line options. Returns 0 if unrecognized, 1 if
511 recognized and handled. */
514 gfc_handle_option (size_t scode, const char *arg, int value)
517 enum opt_code code = (enum opt_code) scode;
519 /* Ignore file names. */
523 if (gfc_cpp_handle_option (scode, arg, value) == 1)
537 gfc_option.warn_aliasing = value;
541 gfc_option.warn_ampersand = value;
544 case OPT_Warray_temporaries:
545 gfc_option.warn_array_temp = value;
548 case OPT_Wcharacter_truncation:
549 gfc_option.warn_character_truncation = value;
552 case OPT_Wconversion:
553 gfc_option.warn_conversion = value;
556 case OPT_Wimplicit_interface:
557 gfc_option.warn_implicit_interface = value;
560 case OPT_Wline_truncation:
561 gfc_option.warn_line_truncation = value;
564 case OPT_Wreturn_type:
565 warn_return_type = value;
568 case OPT_Wsurprising:
569 gfc_option.warn_surprising = value;
573 gfc_option.warn_tabs = value;
577 gfc_option.warn_underflow = value;
580 case OPT_Wintrinsic_shadow:
581 gfc_option.warn_intrinsic_shadow = value;
584 case OPT_Walign_commons:
585 gfc_option.warn_align_commons = value;
588 case OPT_fall_intrinsics:
589 gfc_option.flag_all_intrinsics = 1;
593 gfc_option.flag_automatic = value;
596 case OPT_fallow_leading_underscore:
597 gfc_option.flag_allow_leading_underscore = value;
601 gfc_option.flag_backslash = value;
605 gfc_option.flag_backtrace = value;
608 case OPT_fcheck_array_temporaries:
609 gfc_option.rtcheck |= GFC_RTCHECK_ARRAY_TEMPS;
613 gfc_option.flag_dump_core = value;
616 case OPT_fcray_pointer:
617 gfc_option.flag_cray_pointer = value;
621 gfc_option.flag_f2c = value;
625 gfc_option.flag_dollar_ok = value;
628 case OPT_fexternal_blas:
629 gfc_option.flag_external_blas = value;
632 case OPT_fblas_matmul_limit_:
633 gfc_option.blas_matmul_limit = value;
636 case OPT_fd_lines_as_code:
637 gfc_option.flag_d_lines = 1;
640 case OPT_fd_lines_as_comments:
641 gfc_option.flag_d_lines = 0;
644 case OPT_fdump_parse_tree:
645 gfc_option.dump_parse_tree = value;
648 case OPT_ffixed_form:
649 gfc_option.source_form = FORM_FIXED;
652 case OPT_ffixed_line_length_none:
653 gfc_option.fixed_line_length = 0;
656 case OPT_ffixed_line_length_:
657 if (value != 0 && value < 7)
658 gfc_fatal_error ("Fixed line length must be at least seven.");
659 gfc_option.fixed_line_length = value;
663 gfc_option.source_form = FORM_FREE;
667 gfc_option.flag_openmp = value;
670 case OPT_ffree_line_length_none:
671 gfc_option.free_line_length = 0;
674 case OPT_ffree_line_length_:
675 if (value != 0 && value < 4)
676 gfc_fatal_error ("Free line length must be at least three.");
677 gfc_option.free_line_length = value;
680 case OPT_funderscoring:
681 gfc_option.flag_underscoring = value;
684 case OPT_fwhole_file:
685 gfc_option.flag_whole_file = 1;
688 case OPT_fsecond_underscore:
689 gfc_option.flag_second_underscore = value;
692 case OPT_static_libgfortran:
693 #ifndef HAVE_LD_STATIC_DYNAMIC
694 gfc_fatal_error ("-static-libgfortran is not supported in this "
699 case OPT_fimplicit_none:
700 gfc_option.flag_implicit_none = value;
703 case OPT_fintrinsic_modules_path:
704 gfc_add_include_path (arg, false, false);
705 gfc_add_intrinsic_modules_path (arg);
708 case OPT_fmax_array_constructor_:
709 gfc_option.flag_max_array_constructor = value > 65535 ? value : 65535;
712 case OPT_fmax_errors_:
713 gfc_option.max_errors = value;
716 case OPT_fmax_stack_var_size_:
717 gfc_option.flag_max_stack_var_size = value;
720 case OPT_fmodule_private:
721 gfc_option.flag_module_private = value;
724 case OPT_frange_check:
725 gfc_option.flag_range_check = value;
728 case OPT_fpack_derived:
729 gfc_option.flag_pack_derived = value;
732 case OPT_frepack_arrays:
733 gfc_option.flag_repack_arrays = value;
736 case OPT_fpreprocessed:
737 gfc_option.flag_preprocessed = value;
740 case OPT_fmax_identifier_length_:
741 if (value > GFC_MAX_SYMBOL_LEN)
742 gfc_fatal_error ("Maximum supported identifier length is %d",
744 gfc_option.max_identifier_length = value;
747 case OPT_fdefault_integer_8:
748 gfc_option.flag_default_integer = value;
751 case OPT_fdefault_real_8:
752 gfc_option.flag_default_real = value;
755 case OPT_fdefault_double_8:
756 gfc_option.flag_default_double = value;
759 case OPT_finit_local_zero:
760 gfc_option.flag_init_integer = GFC_INIT_INTEGER_ON;
761 gfc_option.flag_init_integer_value = 0;
762 gfc_option.flag_init_real = GFC_INIT_REAL_ZERO;
763 gfc_option.flag_init_logical = GFC_INIT_LOGICAL_FALSE;
764 gfc_option.flag_init_character = GFC_INIT_CHARACTER_ON;
765 gfc_option.flag_init_character_value = (char)0;
768 case OPT_finit_logical_:
769 if (!strcasecmp (arg, "false"))
770 gfc_option.flag_init_logical = GFC_INIT_LOGICAL_FALSE;
771 else if (!strcasecmp (arg, "true"))
772 gfc_option.flag_init_logical = GFC_INIT_LOGICAL_TRUE;
774 gfc_fatal_error ("Unrecognized option to -finit-logical: %s",
778 case OPT_finit_real_:
779 if (!strcasecmp (arg, "zero"))
780 gfc_option.flag_init_real = GFC_INIT_REAL_ZERO;
781 else if (!strcasecmp (arg, "nan"))
782 gfc_option.flag_init_real = GFC_INIT_REAL_NAN;
783 else if (!strcasecmp (arg, "snan"))
784 gfc_option.flag_init_real = GFC_INIT_REAL_SNAN;
785 else if (!strcasecmp (arg, "inf"))
786 gfc_option.flag_init_real = GFC_INIT_REAL_INF;
787 else if (!strcasecmp (arg, "-inf"))
788 gfc_option.flag_init_real = GFC_INIT_REAL_NEG_INF;
790 gfc_fatal_error ("Unrecognized option to -finit-real: %s",
794 case OPT_finit_integer_:
795 gfc_option.flag_init_integer = GFC_INIT_INTEGER_ON;
796 gfc_option.flag_init_integer_value = atoi (arg);
799 case OPT_finit_character_:
800 if (value >= 0 && value <= 127)
802 gfc_option.flag_init_character = GFC_INIT_CHARACTER_ON;
803 gfc_option.flag_init_character_value = (char)value;
806 gfc_fatal_error ("The value of n in -finit-character=n must be "
807 "between 0 and 127");
811 gfc_add_include_path (arg, true, false);
815 gfc_handle_module_path_options (arg);
819 gfc_option.flag_sign_zero = value;
823 gfc_handle_fpe_trap_option (arg);
827 gfc_option.allow_std = GFC_STD_F95_OBS | GFC_STD_F95 | GFC_STD_F77;
828 gfc_option.warn_std = GFC_STD_F95_OBS;
829 gfc_option.max_continue_fixed = 19;
830 gfc_option.max_continue_free = 39;
831 gfc_option.max_identifier_length = 31;
832 gfc_option.warn_ampersand = 1;
833 gfc_option.warn_tabs = 0;
837 gfc_option.allow_std = GFC_STD_F95_OBS | GFC_STD_F77
838 | GFC_STD_F2003 | GFC_STD_F95;
839 gfc_option.warn_std = GFC_STD_F95_OBS;
840 gfc_option.max_identifier_length = 63;
841 gfc_option.warn_ampersand = 1;
842 gfc_option.warn_tabs = 0;
846 gfc_option.allow_std = GFC_STD_F95_OBS | GFC_STD_F77
847 | GFC_STD_F2003 | GFC_STD_F95 | GFC_STD_F2008;
848 gfc_option.warn_std = GFC_STD_F95_OBS;
849 gfc_option.max_identifier_length = 63;
850 gfc_option.warn_ampersand = 1;
851 gfc_option.warn_tabs = 0;
855 set_default_std_flags ();
859 set_default_std_flags ();
860 gfc_option.warn_std = 0;
863 case OPT_Wintrinsics_std:
864 gfc_option.warn_intrinsics_std = value;
867 case OPT_fshort_enums:
868 flag_short_enums = 1;
871 case OPT_fconvert_little_endian:
872 gfc_option.convert = GFC_CONVERT_LITTLE;
875 case OPT_fconvert_big_endian:
876 gfc_option.convert = GFC_CONVERT_BIG;
879 case OPT_fconvert_native:
880 gfc_option.convert = GFC_CONVERT_NATIVE;
883 case OPT_fconvert_swap:
884 gfc_option.convert = GFC_CONVERT_SWAP;
887 case OPT_frecord_marker_4:
888 gfc_option.record_marker = 4;
891 case OPT_frecord_marker_8:
892 gfc_option.record_marker = 8;
895 case OPT_fmax_subrecord_length_:
896 if (value > MAX_SUBRECORD_LENGTH)
897 gfc_fatal_error ("Maximum subrecord length cannot exceed %d",
898 MAX_SUBRECORD_LENGTH);
900 gfc_option.max_subrecord_length = value;
904 gfc_option.flag_recursive = 1;
907 case OPT_falign_commons:
908 gfc_option.flag_align_commons = value;
912 gfc_handle_runtime_check_option (arg);