diff options
| author | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-07-15 16:29:19 +0000 |
|---|---|---|
| committer | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-07-15 16:29:19 +0000 |
| commit | 56c7c2d7b36cf592003a153b1cf47e75a292ceaa (patch) | |
| tree | b304f4c7c4a642c3aa3b7788e5ba9d05dae4bc02 /gcc/fortran/options.c | |
| parent | d4862c77ebd88b4abbb75f8eda2d711107037e24 (diff) | |
2007-07-15 Jerry DeLisle <jvdelisle@gcc.gnu.org>
Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
PR fortran/32611
* gfortran.h (gfc_option_t): Add flag_sign_zero field.
* lang.opt (-fsign-zero): New option.
* trans.h: Rename gfor_fndecl_set_std into gfor_fndecl_set_options.
* trans-decl.c (gfc_build_builtin_function_decls): Build the function
declaration to pass an array containing the options to be used by the
runtime library. (gfc_generate_function_code): Build an array that
contains option values to be passed to the runtime library and the call
to the function.
* options.c (gfc_init_options): Initialize the flag_sign_zero field.
(gfc_handle_option): Handle the -fsign-zero option.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@126655 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/options.c')
| -rw-r--r-- | gcc/fortran/options.c | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/gcc/fortran/options.c b/gcc/fortran/options.c index 50f5e9400ac0..4f3ec2ce8f93 100644 --- a/gcc/fortran/options.c +++ b/gcc/fortran/options.c @@ -102,6 +102,7 @@ gfc_init_options (unsigned int argc ATTRIBUTE_UNUSED, 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.fpe = 0; @@ -619,6 +620,10 @@ gfc_handle_option (size_t scode, const char *arg, int value) 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; |