diff options
| author | Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2007-08-12 20:19:59 +0000 |
|---|---|---|
| committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2007-08-12 20:19:59 +0000 |
| commit | 654b60732e6a604471862085f0037fd05df86887 (patch) | |
| tree | 412c4a82e24e651226e265eae27b203315512a79 /gcc/fortran/options.c | |
| parent | 5cda5098057c002cf332708f0e5b53bb35d49d76 (diff) | |
| download | gcc-654b60732e6a604471862085f0037fd05df86887.zip gcc-654b60732e6a604471862085f0037fd05df86887.tar.gz gcc-654b60732e6a604471862085f0037fd05df86887.tar.bz2 | |
re PR fortran/31629 (option to make module entities PRIVATE by default)
PR fortran/31629
* lang.opt (-fmodule-private): New option.
* gfortran.h (gfc_option_t): Add flag_module_private member.
* invoke.texi (-fmodule-private): Document the new option.
* module.c (gfc_check_access): Allow the -fmodule-private option
to modify the default behaviour.
* options.c (gfc_init_options): Initialize flag_module_private.
(gfc_handle_option): Handle -fmodule-private.
* gfortran.dg/module_private_1.f90: New test.
From-SVN: r127381
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 ad639ee..0bea67d 100644 --- a/gcc/fortran/options.c +++ b/gcc/fortran/options.c @@ -93,6 +93,7 @@ gfc_init_options (unsigned int argc ATTRIBUTE_UNUSED, gfc_option.flag_preprocessed = 0; gfc_option.flag_automatic = 1; gfc_option.flag_backslash = 1; + gfc_option.flag_module_private = 0; gfc_option.flag_backtrace = 0; gfc_option.flag_allow_leading_underscore = 0; gfc_option.flag_dump_core = 0; @@ -575,6 +576,10 @@ gfc_handle_option (size_t scode, const char *arg, int value) 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; |