diff options
| author | Paul Thomas <pault@gcc.gnu.org> | 2009-03-30 19:35:14 +0000 |
|---|---|---|
| committer | Paul Thomas <pault@gcc.gnu.org> | 2009-03-30 19:35:14 +0000 |
| commit | 71a7778cd95891c6534f84ce4097ca2431904973 (patch) | |
| tree | 3d04f401d942074656d07f10c4252bef4c56ac37 /gcc/fortran/options.c | |
| parent | 5b0c0b2c05d84902395b6a21d82c2be2f6406812 (diff) | |
| download | gcc-71a7778cd95891c6534f84ce4097ca2431904973.zip gcc-71a7778cd95891c6534f84ce4097ca2431904973.tar.gz gcc-71a7778cd95891c6534f84ce4097ca2431904973.tar.bz2 | |
re PR fortran/22571 (Reject derived types for dummy arguments declared in the subroutine unless they are SEQUENCE)
2009-03-30 Paul Thomas <pault@gcc.gnu.org>
PR fortran/22571
PR fortran/26227
PR fortran/24886
* symbol.c : Add gfc_global_ns_list.
* decl.c (add_global_entry): Set the namespace ('ns') field.
* gfortran.h : Add the resolved field to gfc_namespace. Add the
namespace ('ns') field to gfc_gsymbol. Add flag_whole_file to
gfc_option_t. Add the prototype for gfc_free_dt_list.
* lang.opt : Add the whole-file option.
* invoke.texi : Document the whole-file option.
* resolve.c (resolve_global_procedure): If the fwhole-file
option is set, reorder gsymbols to ensure that translation is
in the right order. Resolve the gsymbol's namespace if that
has not occurred and then check interfaces.
(resolve_function): Move call to resolve_global_procedure.
(resolve_call): The same.
(resolve_codes): Store the current labels_obstack.
(gfc_resolve) : Return if the namespace is already resolved.
trans-decl.c (gfc_get_extern_function_decl): If the whole_file
option is selected, use the backend_decl of a gsymbol, if it is
available.
parse.c (add_global_procedure, add_global_program): If the flag
whole-file is set, add the namespace to the gsymbol.
(gfc_parse_file): On -fwhole-file, put procedure namespaces on
the global namespace list. Rearrange to do resolution of all
the procedures in a file, followed by their translation.
* options.c (gfc_init_options): Add -fwhole-file.
(gfc_handle_option): The same.
2009-03-30 Paul Thomas <pault@gcc.gnu.org>
PR fortran/22571
* gfortran.dg/whole_file_1.f90: New test.
PR fortran/26227
* gfortran.dg/whole_file_2.f90: New test.
* gfortran.dg/whole_file_3.f90: New test.
PR fortran/24886
* gfortran.dg/whole_file_4.f90: New test.
From-SVN: r145314
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 17c577d..b45696d 100644 --- a/gcc/fortran/options.c +++ b/gcc/fortran/options.c @@ -93,6 +93,7 @@ gfc_init_options (unsigned int argc, const char **argv) gfc_option.flag_default_real = 0; gfc_option.flag_dollar_ok = 0; gfc_option.flag_underscoring = 1; + gfc_option.flag_whole_file = 0; gfc_option.flag_f2c = 0; gfc_option.flag_second_underscore = -1; gfc_option.flag_implicit_none = 0; @@ -673,6 +674,10 @@ gfc_handle_option (size_t scode, const char *arg, int value) gfc_option.flag_underscoring = value; break; + case OPT_fwhole_file: + gfc_option.flag_whole_file = 1; + break; + case OPT_fsecond_underscore: gfc_option.flag_second_underscore = value; break; |