diff options
| author | tobi <tobi@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-02-23 19:02:29 +0000 |
|---|---|---|
| committer | tobi <tobi@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-02-23 19:02:29 +0000 |
| commit | a05623171bccd9cc2510eb9f4b906ba86d1f5f46 (patch) | |
| tree | c3dd910bd906ccffa8fb44a3d9043fe315e80a35 /gcc/fortran/module.c | |
| parent | f119c0554dad5515e6c9d7cc6224a609bc73a39b (diff) | |
| download | ppe42-gcc-a05623171bccd9cc2510eb9f4b906ba86d1f5f46.tar.gz ppe42-gcc-a05623171bccd9cc2510eb9f4b906ba86d1f5f46.zip | |
fortran/
* gfortran.h (gfc_get_namespace): Add second argument to prototype.
* intrinsic.c (gfc_intrinsic_init_1): Pass second argument to
gfc_get_namespace.
* module.c (mio_namespace_ref, load_needed): Likewise.
* parse.c (parse_interface, parse_contained): Likewise. Here the
correct second argument matters.
* symbol.c (gfc_get_namespace): Add parent_types argument, only copy
parent's implicit types if this is set.
(gfc_symbol_init_2): Pass second argument to gfc_get_namespace.
* trans-common.c (build_common_decl): Likewise.
testsuite/
* gfortran.dg/implicit_3.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@95463 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/module.c')
| -rw-r--r-- | gcc/fortran/module.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/fortran/module.c b/gcc/fortran/module.c index 12d52c419a9..ff3dcffebf9 100644 --- a/gcc/fortran/module.c +++ b/gcc/fortran/module.c @@ -2627,7 +2627,7 @@ mio_namespace_ref (gfc_namespace ** nsp) ns = (gfc_namespace *)p->u.pointer; if (ns == NULL) { - ns = gfc_get_namespace (NULL); + ns = gfc_get_namespace (NULL, 0); associate_integer_pointer (p, ns); } else @@ -2878,7 +2878,7 @@ load_needed (pointer_info * p) the namespaces that hold the formal parameters of module procedures. */ - ns = gfc_get_namespace (NULL); + ns = gfc_get_namespace (NULL, 0); associate_integer_pointer (q, ns); } |
