1 /* Parse and display command line options.
2 Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008,
4 Free Software Foundation, Inc.
5 Contributed by Andy Vaught
7 This file is part of GCC.
9 GCC is free software; you can redistribute it and/or modify it under
10 the terms of the GNU General Public License as published by the Free
11 Software Foundation; either version 3, or (at your option) any later
14 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
15 WARRANTY; without even the implied warranty of MERCHANTABILITY or
16 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
19 You should have received a copy of the GNU General Public License
20 along with GCC; see the file COPYING3. If not see
21 <http://www.gnu.org/licenses/>. */
25 #include "coretypes.h"
30 #include "toplev.h" /* For save_decoded_options. */
33 #include "tree-inline.h"
37 #include "diagnostic-core.h" /* For sorry. */
40 gfc_option_t gfc_option
;
43 /* Set flags that control warnings and errors for different
44 Fortran standards to their default values. Keep in sync with
45 libgfortran/runtime/compile_options.c (init_compile_options). */
48 set_default_std_flags (void)
50 gfc_option
.allow_std
= GFC_STD_F95_OBS
| GFC_STD_F95_DEL
51 | GFC_STD_F2003
| GFC_STD_F2008
| GFC_STD_F95
| GFC_STD_F77
52 | GFC_STD_F2008_OBS
| GFC_STD_GNU
| GFC_STD_LEGACY
;
53 gfc_option
.warn_std
= GFC_STD_F95_DEL
| GFC_STD_LEGACY
;
57 /* Return language mask for Fortran options. */
60 gfc_option_lang_mask (void)
65 /* Initialize options structure OPTS. */
68 gfc_init_options_struct (struct gcc_options
*opts
)
70 opts
->x_flag_errno_math
= 0;
71 opts
->x_flag_associative_math
= -1;
74 /* Get ready for options handling. Keep in sync with
75 libgfortran/runtime/compile_options.c (init_compile_options). */
78 gfc_init_options (unsigned int decoded_options_count
,
79 struct cl_decoded_option
*decoded_options
)
81 gfc_source_file
= NULL
;
82 gfc_option
.module_dir
= NULL
;
83 gfc_option
.source_form
= FORM_UNKNOWN
;
84 gfc_option
.fixed_line_length
= 72;
85 gfc_option
.free_line_length
= 132;
86 gfc_option
.max_continue_fixed
= 255;
87 gfc_option
.max_continue_free
= 255;
88 gfc_option
.max_identifier_length
= GFC_MAX_SYMBOL_LEN
;
89 gfc_option
.max_subrecord_length
= 0;
90 gfc_option
.flag_max_array_constructor
= 65535;
91 gfc_option
.convert
= GFC_CONVERT_NATIVE
;
92 gfc_option
.record_marker
= 0;
93 gfc_option
.dump_fortran_original
= 0;
94 gfc_option
.dump_fortran_optimized
= 0;
96 gfc_option
.warn_aliasing
= 0;
97 gfc_option
.warn_ampersand
= 0;
98 gfc_option
.warn_character_truncation
= 0;
99 gfc_option
.warn_array_temp
= 0;
100 gfc_option
.gfc_warn_conversion
= 0;
101 gfc_option
.warn_conversion_extra
= 0;
102 gfc_option
.warn_implicit_interface
= 0;
103 gfc_option
.warn_line_truncation
= 0;
104 gfc_option
.warn_surprising
= 0;
105 gfc_option
.warn_tabs
= 1;
106 gfc_option
.warn_underflow
= 1;
107 gfc_option
.warn_intrinsic_shadow
= 0;
108 gfc_option
.warn_intrinsics_std
= 0;
109 gfc_option
.warn_align_commons
= 1;
110 gfc_option
.warn_unused_dummy_argument
= 0;
111 gfc_option
.max_errors
= 25;
113 gfc_option
.flag_all_intrinsics
= 0;
114 gfc_option
.flag_default_double
= 0;
115 gfc_option
.flag_default_integer
= 0;
116 gfc_option
.flag_default_real
= 0;
117 gfc_option
.flag_dollar_ok
= 0;
118 gfc_option
.flag_underscoring
= 1;
119 gfc_option
.flag_whole_file
= 1;
120 gfc_option
.flag_f2c
= 0;
121 gfc_option
.flag_second_underscore
= -1;
122 gfc_option
.flag_implicit_none
= 0;
124 /* Default value of flag_max_stack_var_size is set in gfc_post_options. */
125 gfc_option
.flag_max_stack_var_size
= -2;
127 gfc_option
.flag_range_check
= 1;
128 gfc_option
.flag_pack_derived
= 0;
129 gfc_option
.flag_repack_arrays
= 0;
130 gfc_option
.flag_preprocessed
= 0;
131 gfc_option
.flag_automatic
= 1;
132 gfc_option
.flag_backslash
= 0;
133 gfc_option
.flag_module_private
= 0;
134 gfc_option
.flag_backtrace
= 0;
135 gfc_option
.flag_allow_leading_underscore
= 0;
136 gfc_option
.flag_dump_core
= 0;
137 gfc_option
.flag_external_blas
= 0;
138 gfc_option
.blas_matmul_limit
= 30;
139 gfc_option
.flag_cray_pointer
= 0;
140 gfc_option
.flag_d_lines
= -1;
141 gfc_option
.gfc_flag_openmp
= 0;
142 gfc_option
.flag_sign_zero
= 1;
143 gfc_option
.flag_recursive
= 0;
144 gfc_option
.flag_init_integer
= GFC_INIT_INTEGER_OFF
;
145 gfc_option
.flag_init_integer_value
= 0;
146 gfc_option
.flag_init_real
= GFC_INIT_REAL_OFF
;
147 gfc_option
.flag_init_logical
= GFC_INIT_LOGICAL_OFF
;
148 gfc_option
.flag_init_character
= GFC_INIT_CHARACTER_OFF
;
149 gfc_option
.flag_init_character_value
= (char)0;
150 gfc_option
.flag_align_commons
= 1;
151 gfc_option
.flag_protect_parens
= 1;
154 gfc_option
.rtcheck
= 0;
155 gfc_option
.coarray
= GFC_FCOARRAY_NONE
;
157 set_default_std_flags ();
159 /* Initialize cpp-related options. */
160 gfc_cpp_init_options (decoded_options_count
, decoded_options
);
164 /* Determine the source form from the filename extension. We assume
165 case insensitivity. */
167 static gfc_source_form
168 form_from_filename (const char *filename
)
172 const char *extension
;
173 gfc_source_form form
;
200 }; /* sentinel value */
202 gfc_source_form f_form
;
206 /* Find end of file name. Note, filename is either a NULL pointer or
207 a NUL terminated string. */
209 while (filename
[i
] != '\0')
212 /* Find last period. */
213 while (i
>= 0 && (filename
[i
] != '.'))
216 /* Did we see a file extension? */
218 return FORM_UNKNOWN
; /* Nope */
220 /* Get file extension and compare it to others. */
221 fileext
= &(filename
[i
]);
224 f_form
= FORM_UNKNOWN
;
228 if (strcasecmp (fileext
, exttype
[i
].extension
) == 0)
230 f_form
= exttype
[i
].form
;
234 while (exttype
[i
].form
!= FORM_UNKNOWN
);
240 /* Finalize commandline options. */
243 gfc_post_options (const char **pfilename
)
245 const char *filename
= *pfilename
, *canon_source_file
= NULL
;
249 /* Excess precision other than "fast" requires front-end
251 if (flag_excess_precision_cmdline
== EXCESS_PRECISION_STANDARD
252 && TARGET_FLT_EVAL_METHOD_NON_DEFAULT
)
253 sorry ("-fexcess-precision=standard for Fortran");
254 flag_excess_precision_cmdline
= EXCESS_PRECISION_FAST
;
256 /* Whole program needs whole file mode. */
257 if (flag_whole_program
)
258 gfc_option
.flag_whole_file
= 1;
260 /* Enable whole-file mode if LTO is in effect. */
262 gfc_option
.flag_whole_file
= 1;
264 /* Fortran allows associative math - but we cannot reassociate if
265 we want traps or signed zeros. Cf. also flag_protect_parens. */
266 if (flag_associative_math
== -1)
267 flag_associative_math
= (!flag_trapping_math
&& !flag_signed_zeros
);
269 /* -fbounds-check is equivalent to -fcheck=bounds */
270 if (flag_bounds_check
)
271 gfc_option
.rtcheck
|= GFC_RTCHECK_BOUNDS
;
273 if (flag_compare_debug
)
274 gfc_option
.dump_fortran_original
= 0;
276 /* Make -fmax-errors visible to gfortran's diagnostic machinery. */
277 if (global_options_set
.x_flag_max_errors
)
278 gfc_option
.max_errors
= flag_max_errors
;
280 /* Verify the input file name. */
281 if (!filename
|| strcmp (filename
, "-") == 0)
286 if (gfc_option
.flag_preprocessed
)
288 /* For preprocessed files, if the first tokens are of the form # NUM.
289 handle the directives so we know the original file name. */
290 gfc_source_file
= gfc_read_orig_filename (filename
, &canon_source_file
);
291 if (gfc_source_file
== NULL
)
292 gfc_source_file
= filename
;
294 *pfilename
= gfc_source_file
;
297 gfc_source_file
= filename
;
299 if (canon_source_file
== NULL
)
300 canon_source_file
= gfc_source_file
;
302 /* Adds the path where the source file is to the list of include files. */
304 i
= strlen (canon_source_file
);
305 while (i
> 0 && !IS_DIR_SEPARATOR (canon_source_file
[i
]))
310 source_path
= (char *) alloca (i
+ 1);
311 memcpy (source_path
, canon_source_file
, i
);
313 gfc_add_include_path (source_path
, true, true);
316 gfc_add_include_path (".", true, true);
318 if (canon_source_file
!= gfc_source_file
)
319 gfc_free (CONST_CAST (char *, canon_source_file
));
321 /* Decide which form the file will be read in as. */
323 if (gfc_option
.source_form
!= FORM_UNKNOWN
)
324 gfc_current_form
= gfc_option
.source_form
;
327 gfc_current_form
= form_from_filename (filename
);
329 if (gfc_current_form
== FORM_UNKNOWN
)
331 gfc_current_form
= FORM_FREE
;
332 gfc_warning_now ("Reading file '%s' as free form",
333 (filename
[0] == '\0') ? "<stdin>" : filename
);
337 /* If the user specified -fd-lines-as-{code|comments} verify that we're
339 if (gfc_current_form
== FORM_FREE
)
341 if (gfc_option
.flag_d_lines
== 0)
342 gfc_warning_now ("'-fd-lines-as-comments' has no effect "
344 else if (gfc_option
.flag_d_lines
== 1)
345 gfc_warning_now ("'-fd-lines-as-code' has no effect in free form");
348 /* If -pedantic, warn about the use of GNU extensions. */
349 if (pedantic
&& (gfc_option
.allow_std
& GFC_STD_GNU
) != 0)
350 gfc_option
.warn_std
|= GFC_STD_GNU
;
351 /* -std=legacy -pedantic is effectively -std=gnu. */
352 if (pedantic
&& (gfc_option
.allow_std
& GFC_STD_LEGACY
) != 0)
353 gfc_option
.warn_std
|= GFC_STD_F95_OBS
| GFC_STD_F95_DEL
| GFC_STD_LEGACY
;
355 /* If the user didn't explicitly specify -f(no)-second-underscore we
356 use it if we're trying to be compatible with f2c, and not
358 if (gfc_option
.flag_second_underscore
== -1)
359 gfc_option
.flag_second_underscore
= gfc_option
.flag_f2c
;
361 if (!gfc_option
.flag_automatic
&& gfc_option
.flag_max_stack_var_size
!= -2
362 && gfc_option
.flag_max_stack_var_size
!= 0)
363 gfc_warning_now ("Flag -fno-automatic overwrites -fmax-stack-var-size=%d",
364 gfc_option
.flag_max_stack_var_size
);
365 else if (!gfc_option
.flag_automatic
&& gfc_option
.flag_recursive
)
366 gfc_warning_now ("Flag -fno-automatic overwrites -frecursive");
367 else if (!gfc_option
.flag_automatic
&& gfc_option
.gfc_flag_openmp
)
368 gfc_warning_now ("Flag -fno-automatic overwrites -frecursive implied by "
370 else if (gfc_option
.flag_max_stack_var_size
!= -2
371 && gfc_option
.flag_recursive
)
372 gfc_warning_now ("Flag -frecursive overwrites -fmax-stack-var-size=%d",
373 gfc_option
.flag_max_stack_var_size
);
374 else if (gfc_option
.flag_max_stack_var_size
!= -2
375 && gfc_option
.gfc_flag_openmp
)
376 gfc_warning_now ("Flag -fmax-stack-var-size=%d overwrites -frecursive "
377 "implied by -fopenmp",
378 gfc_option
.flag_max_stack_var_size
);
380 /* Implement -frecursive as -fmax-stack-var-size=-1. */
381 if (gfc_option
.flag_recursive
)
382 gfc_option
.flag_max_stack_var_size
= -1;
384 /* Implied -frecursive; implemented as -fmax-stack-var-size=-1. */
385 if (gfc_option
.flag_max_stack_var_size
== -2 && gfc_option
.gfc_flag_openmp
386 && gfc_option
.flag_automatic
)
388 gfc_option
.flag_recursive
= 1;
389 gfc_option
.flag_max_stack_var_size
= -1;
393 if (gfc_option
.flag_max_stack_var_size
== -2)
394 gfc_option
.flag_max_stack_var_size
= 32768;
396 /* Implement -fno-automatic as -fmax-stack-var-size=0. */
397 if (!gfc_option
.flag_automatic
)
398 gfc_option
.flag_max_stack_var_size
= 0;
402 gfc_option
.warn_ampersand
= 1;
403 gfc_option
.warn_tabs
= 0;
406 if (pedantic
&& gfc_option
.flag_whole_file
)
407 gfc_option
.flag_whole_file
= 2;
409 gfc_cpp_post_options ();
411 /* FIXME: return gfc_cpp_preprocess_only ();
413 The return value of this function indicates whether the
414 backend needs to be initialized. On -E, we don't need
415 the backend. However, if we return 'true' here, an
416 ICE occurs. Initializing the backend doesn't hurt much,
417 hence, for now we can live with it as is. */
422 /* Set the options for -Wall. */
425 set_Wall (int setting
)
427 gfc_option
.warn_aliasing
= setting
;
428 gfc_option
.warn_ampersand
= setting
;
429 gfc_option
.gfc_warn_conversion
= setting
;
430 gfc_option
.warn_line_truncation
= setting
;
431 gfc_option
.warn_surprising
= setting
;
432 gfc_option
.warn_tabs
= !setting
;
433 gfc_option
.warn_underflow
= setting
;
434 gfc_option
.warn_intrinsic_shadow
= setting
;
435 gfc_option
.warn_intrinsics_std
= setting
;
436 gfc_option
.warn_character_truncation
= setting
;
437 gfc_option
.warn_unused_dummy_argument
= setting
;
439 warn_unused
= setting
;
440 warn_return_type
= setting
;
441 warn_switch
= setting
;
442 warn_uninitialized
= setting
;
447 gfc_handle_module_path_options (const char *arg
)
450 if (gfc_option
.module_dir
!= NULL
)
451 gfc_fatal_error ("gfortran: Only one -J option allowed");
453 gfc_option
.module_dir
= (char *) gfc_getmem (strlen (arg
) + 2);
454 strcpy (gfc_option
.module_dir
, arg
);
455 strcat (gfc_option
.module_dir
, "/");
457 gfc_add_include_path (gfc_option
.module_dir
, true, false);
462 gfc_handle_fpe_trap_option (const char *arg
)
464 int result
, pos
= 0, n
;
465 static const char * const exception
[] = { "invalid", "denormal", "zero",
466 "overflow", "underflow",
468 static const int opt_exception
[] = { GFC_FPE_INVALID
, GFC_FPE_DENORMAL
,
469 GFC_FPE_ZERO
, GFC_FPE_OVERFLOW
,
470 GFC_FPE_UNDERFLOW
, GFC_FPE_PRECISION
,
478 while (arg
[pos
] && arg
[pos
] != ',')
482 for (n
= 0; exception
[n
] != NULL
; n
++)
484 if (exception
[n
] && strncmp (exception
[n
], arg
, pos
) == 0)
486 gfc_option
.fpe
|= opt_exception
[n
];
494 gfc_fatal_error ("Argument to -ffpe-trap is not valid: %s", arg
);
500 gfc_handle_coarray_option (const char *arg
)
502 if (strcmp (arg
, "none") == 0)
503 gfc_option
.coarray
= GFC_FCOARRAY_NONE
;
504 else if (strcmp (arg
, "single") == 0)
505 gfc_option
.coarray
= GFC_FCOARRAY_SINGLE
;
507 gfc_fatal_error ("Argument to -fcoarray is not valid: %s", arg
);
512 gfc_handle_runtime_check_option (const char *arg
)
514 int result
, pos
= 0, n
;
515 static const char * const optname
[] = { "all", "bounds", "array-temps",
516 "recursion", "do", "pointer",
518 static const int optmask
[] = { GFC_RTCHECK_ALL
, GFC_RTCHECK_BOUNDS
,
519 GFC_RTCHECK_ARRAY_TEMPS
,
520 GFC_RTCHECK_RECURSION
, GFC_RTCHECK_DO
,
521 GFC_RTCHECK_POINTER
, GFC_RTCHECK_MEM
,
529 while (arg
[pos
] && arg
[pos
] != ',')
533 for (n
= 0; optname
[n
] != NULL
; n
++)
535 if (optname
[n
] && strncmp (optname
[n
], arg
, pos
) == 0)
537 gfc_option
.rtcheck
|= optmask
[n
];
545 gfc_fatal_error ("Argument to -fcheck is not valid: %s", arg
);
550 /* Handle command-line options. Returns 0 if unrecognized, 1 if
551 recognized and handled. */
554 gfc_handle_option (size_t scode
, const char *arg
, int value
,
555 int kind ATTRIBUTE_UNUSED
,
556 const struct cl_option_handlers
*handlers ATTRIBUTE_UNUSED
)
559 enum opt_code code
= (enum opt_code
) scode
;
561 if (gfc_cpp_handle_option (scode
, arg
, value
) == 1)
575 gfc_option
.warn_aliasing
= value
;
579 gfc_option
.warn_ampersand
= value
;
582 case OPT_Warray_temporaries
:
583 gfc_option
.warn_array_temp
= value
;
586 case OPT_Wcharacter_truncation
:
587 gfc_option
.warn_character_truncation
= value
;
590 case OPT_Wconversion
:
591 gfc_option
.gfc_warn_conversion
= value
;
594 case OPT_Wconversion_extra
:
595 gfc_option
.warn_conversion_extra
= value
;
598 case OPT_Wimplicit_interface
:
599 gfc_option
.warn_implicit_interface
= value
;
602 case OPT_Wimplicit_procedure
:
603 gfc_option
.warn_implicit_procedure
= value
;
606 case OPT_Wline_truncation
:
607 gfc_option
.warn_line_truncation
= value
;
610 case OPT_Wreturn_type
:
611 warn_return_type
= value
;
614 case OPT_Wsurprising
:
615 gfc_option
.warn_surprising
= value
;
619 gfc_option
.warn_tabs
= value
;
623 gfc_option
.warn_underflow
= value
;
626 case OPT_Wintrinsic_shadow
:
627 gfc_option
.warn_intrinsic_shadow
= value
;
630 case OPT_Walign_commons
:
631 gfc_option
.warn_align_commons
= value
;
634 case OPT_Wunused_dummy_argument
:
635 gfc_option
.warn_unused_dummy_argument
= value
;
638 case OPT_fall_intrinsics
:
639 gfc_option
.flag_all_intrinsics
= 1;
643 gfc_option
.flag_automatic
= value
;
646 case OPT_fallow_leading_underscore
:
647 gfc_option
.flag_allow_leading_underscore
= value
;
651 gfc_option
.flag_backslash
= value
;
655 gfc_option
.flag_backtrace
= value
;
658 case OPT_fcheck_array_temporaries
:
659 gfc_option
.rtcheck
|= GFC_RTCHECK_ARRAY_TEMPS
;
663 gfc_option
.flag_dump_core
= value
;
666 case OPT_fcray_pointer
:
667 gfc_option
.flag_cray_pointer
= value
;
671 gfc_option
.flag_f2c
= value
;
675 gfc_option
.flag_dollar_ok
= value
;
678 case OPT_fexternal_blas
:
679 gfc_option
.flag_external_blas
= value
;
682 case OPT_fblas_matmul_limit_
:
683 gfc_option
.blas_matmul_limit
= value
;
686 case OPT_fd_lines_as_code
:
687 gfc_option
.flag_d_lines
= 1;
690 case OPT_fd_lines_as_comments
:
691 gfc_option
.flag_d_lines
= 0;
694 case OPT_fdump_fortran_original
:
695 case OPT_fdump_parse_tree
:
696 gfc_option
.dump_fortran_original
= value
;
699 case OPT_fdump_fortran_optimized
:
700 gfc_option
.dump_fortran_optimized
= value
;
703 case OPT_ffixed_form
:
704 gfc_option
.source_form
= FORM_FIXED
;
707 case OPT_ffixed_line_length_none
:
708 gfc_option
.fixed_line_length
= 0;
711 case OPT_ffixed_line_length_
:
712 if (value
!= 0 && value
< 7)
713 gfc_fatal_error ("Fixed line length must be at least seven.");
714 gfc_option
.fixed_line_length
= value
;
718 gfc_option
.source_form
= FORM_FREE
;
722 gfc_option
.gfc_flag_openmp
= value
;
725 case OPT_ffree_line_length_none
:
726 gfc_option
.free_line_length
= 0;
729 case OPT_ffree_line_length_
:
730 if (value
!= 0 && value
< 4)
731 gfc_fatal_error ("Free line length must be at least three.");
732 gfc_option
.free_line_length
= value
;
735 case OPT_funderscoring
:
736 gfc_option
.flag_underscoring
= value
;
739 case OPT_fwhole_file
:
740 gfc_option
.flag_whole_file
= value
;
743 case OPT_fsecond_underscore
:
744 gfc_option
.flag_second_underscore
= value
;
747 case OPT_static_libgfortran
:
748 #ifndef HAVE_LD_STATIC_DYNAMIC
749 gfc_fatal_error ("-static-libgfortran is not supported in this "
754 case OPT_fimplicit_none
:
755 gfc_option
.flag_implicit_none
= value
;
758 case OPT_fintrinsic_modules_path
:
759 gfc_add_include_path (arg
, false, false);
760 gfc_add_intrinsic_modules_path (arg
);
763 case OPT_fmax_array_constructor_
:
764 gfc_option
.flag_max_array_constructor
= value
> 65535 ? value
: 65535;
767 case OPT_fmax_stack_var_size_
:
768 gfc_option
.flag_max_stack_var_size
= value
;
771 case OPT_fmodule_private
:
772 gfc_option
.flag_module_private
= value
;
775 case OPT_frange_check
:
776 gfc_option
.flag_range_check
= value
;
779 case OPT_fpack_derived
:
780 gfc_option
.flag_pack_derived
= value
;
783 case OPT_frepack_arrays
:
784 gfc_option
.flag_repack_arrays
= value
;
787 case OPT_fpreprocessed
:
788 gfc_option
.flag_preprocessed
= value
;
791 case OPT_fmax_identifier_length_
:
792 if (value
> GFC_MAX_SYMBOL_LEN
)
793 gfc_fatal_error ("Maximum supported identifier length is %d",
795 gfc_option
.max_identifier_length
= value
;
798 case OPT_fdefault_integer_8
:
799 gfc_option
.flag_default_integer
= value
;
802 case OPT_fdefault_real_8
:
803 gfc_option
.flag_default_real
= value
;
806 case OPT_fdefault_double_8
:
807 gfc_option
.flag_default_double
= value
;
810 case OPT_finit_local_zero
:
811 gfc_option
.flag_init_integer
= GFC_INIT_INTEGER_ON
;
812 gfc_option
.flag_init_integer_value
= 0;
813 gfc_option
.flag_init_real
= GFC_INIT_REAL_ZERO
;
814 gfc_option
.flag_init_logical
= GFC_INIT_LOGICAL_FALSE
;
815 gfc_option
.flag_init_character
= GFC_INIT_CHARACTER_ON
;
816 gfc_option
.flag_init_character_value
= (char)0;
819 case OPT_finit_logical_
:
820 if (!strcasecmp (arg
, "false"))
821 gfc_option
.flag_init_logical
= GFC_INIT_LOGICAL_FALSE
;
822 else if (!strcasecmp (arg
, "true"))
823 gfc_option
.flag_init_logical
= GFC_INIT_LOGICAL_TRUE
;
825 gfc_fatal_error ("Unrecognized option to -finit-logical: %s",
829 case OPT_finit_real_
:
830 if (!strcasecmp (arg
, "zero"))
831 gfc_option
.flag_init_real
= GFC_INIT_REAL_ZERO
;
832 else if (!strcasecmp (arg
, "nan"))
833 gfc_option
.flag_init_real
= GFC_INIT_REAL_NAN
;
834 else if (!strcasecmp (arg
, "snan"))
835 gfc_option
.flag_init_real
= GFC_INIT_REAL_SNAN
;
836 else if (!strcasecmp (arg
, "inf"))
837 gfc_option
.flag_init_real
= GFC_INIT_REAL_INF
;
838 else if (!strcasecmp (arg
, "-inf"))
839 gfc_option
.flag_init_real
= GFC_INIT_REAL_NEG_INF
;
841 gfc_fatal_error ("Unrecognized option to -finit-real: %s",
845 case OPT_finit_integer_
:
846 gfc_option
.flag_init_integer
= GFC_INIT_INTEGER_ON
;
847 gfc_option
.flag_init_integer_value
= atoi (arg
);
850 case OPT_finit_character_
:
851 if (value
>= 0 && value
<= 127)
853 gfc_option
.flag_init_character
= GFC_INIT_CHARACTER_ON
;
854 gfc_option
.flag_init_character_value
= (char)value
;
857 gfc_fatal_error ("The value of n in -finit-character=n must be "
858 "between 0 and 127");
862 gfc_add_include_path (arg
, true, false);
866 gfc_handle_module_path_options (arg
);
870 gfc_option
.flag_sign_zero
= value
;
874 gfc_handle_fpe_trap_option (arg
);
878 gfc_option
.allow_std
= GFC_STD_F95_OBS
| GFC_STD_F95
| GFC_STD_F77
880 gfc_option
.warn_std
= GFC_STD_F95_OBS
;
881 gfc_option
.max_continue_fixed
= 19;
882 gfc_option
.max_continue_free
= 39;
883 gfc_option
.max_identifier_length
= 31;
884 gfc_option
.warn_ampersand
= 1;
885 gfc_option
.warn_tabs
= 0;
889 gfc_option
.allow_std
= GFC_STD_F95_OBS
| GFC_STD_F77
890 | GFC_STD_F2003
| GFC_STD_F95
| GFC_STD_F2008_OBS
;
891 gfc_option
.warn_std
= GFC_STD_F95_OBS
;
892 gfc_option
.max_identifier_length
= 63;
893 gfc_option
.warn_ampersand
= 1;
894 gfc_option
.warn_tabs
= 0;
898 gfc_option
.allow_std
= GFC_STD_F95_OBS
| GFC_STD_F77
899 | GFC_STD_F2003
| GFC_STD_F95
| GFC_STD_F2008
| GFC_STD_F2008_OBS
;
900 gfc_option
.warn_std
= GFC_STD_F95_OBS
| GFC_STD_F2008_OBS
;
901 gfc_option
.max_identifier_length
= 63;
902 gfc_option
.warn_ampersand
= 1;
903 gfc_option
.warn_tabs
= 0;
907 set_default_std_flags ();
911 set_default_std_flags ();
912 gfc_option
.warn_std
= 0;
915 case OPT_Wintrinsics_std
:
916 gfc_option
.warn_intrinsics_std
= value
;
919 case OPT_fshort_enums
:
920 /* Handled in language-independent code. */
923 case OPT_fconvert_little_endian
:
924 gfc_option
.convert
= GFC_CONVERT_LITTLE
;
927 case OPT_fconvert_big_endian
:
928 gfc_option
.convert
= GFC_CONVERT_BIG
;
931 case OPT_fconvert_native
:
932 gfc_option
.convert
= GFC_CONVERT_NATIVE
;
935 case OPT_fconvert_swap
:
936 gfc_option
.convert
= GFC_CONVERT_SWAP
;
939 case OPT_frecord_marker_4
:
940 gfc_option
.record_marker
= 4;
943 case OPT_frecord_marker_8
:
944 gfc_option
.record_marker
= 8;
947 case OPT_fmax_subrecord_length_
:
948 if (value
> MAX_SUBRECORD_LENGTH
)
949 gfc_fatal_error ("Maximum subrecord length cannot exceed %d",
950 MAX_SUBRECORD_LENGTH
);
952 gfc_option
.max_subrecord_length
= value
;
956 gfc_option
.flag_recursive
= value
;
959 case OPT_falign_commons
:
960 gfc_option
.flag_align_commons
= value
;
963 case OPT_fprotect_parens
:
964 gfc_option
.flag_protect_parens
= value
;
968 gfc_handle_runtime_check_option (arg
);
972 gfc_handle_coarray_option (arg
);
980 /* Return a string with the options passed to the compiler; used for
981 Fortran's compiler_options() intrinsic. */
984 gfc_get_option_string (void)
990 /* Determine required string length. */
993 for (j
= 1; j
< save_decoded_options_count
; j
++)
995 switch (save_decoded_options
[j
].opt_index
)
1004 case OPT_fintrinsic_modules_path
:
1008 /* Ignore file names. */
1009 if (save_decoded_options
[j
].orig_option_with_args_text
[0] == '-')
1011 + strlen (save_decoded_options
[j
].orig_option_with_args_text
);
1015 result
= (char *) gfc_getmem (len
);
1018 for (j
= 1; j
< save_decoded_options_count
; j
++)
1020 switch (save_decoded_options
[j
].opt_index
)
1029 case OPT_fintrinsic_modules_path
:
1034 /* Use "-cpp" rather than "-cpp=<temporary file>". */
1039 /* Ignore file names. */
1040 if (save_decoded_options
[j
].orig_option_with_args_text
[0] != '-')
1043 len
= strlen (save_decoded_options
[j
].orig_option_with_args_text
);
1046 memcpy (&result
[pos
], save_decoded_options
[j
].orig_option_with_args_text
, len
);
1048 result
[pos
++] = ' ';
1051 result
[--pos
] = '\0';