From ef63afedd3d3d4d5557549441916b51679703085 Mon Sep 17 00:00:00 2001 From: fxcoudert Date: Sun, 12 Aug 2007 20:19:59 +0000 Subject: 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. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@127381 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/fortran/lang.opt | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'gcc/fortran/lang.opt') diff --git a/gcc/fortran/lang.opt b/gcc/fortran/lang.opt index bb99a82f76c..3072051a1f4 100644 --- a/gcc/fortran/lang.opt +++ b/gcc/fortran/lang.opt @@ -212,6 +212,10 @@ fmax-stack-var-size= Fortran RejectNegative Joined UInteger -fmax-stack-var-size= Size in bytes of the largest array that will be put on the stack +fmodule-private +Fortran +Set default accessibility of module entities to PRIVATE. + fopenmp Fortran Enable OpenMP -- cgit v1.2.1