diff options
| author | Tobias Burnus <tobias@codesourcery.com> | 2020-01-21 13:42:11 +0100 |
|---|---|---|
| committer | Tobias Burnus <tobias@codesourcery.com> | 2020-01-21 13:42:11 +0100 |
| commit | b31f80231df9ce6d9b50c62d28b8d2a4654ef564 (patch) | |
| tree | 4fed8ba69e42c7298df480644c45beb4a0fdfcdc /gcc/fortran/symbol.c | |
| parent | 01e9f1812c72c940172700971179d7726b7a3050 (diff) | |
| download | gcc-b31f80231df9ce6d9b50c62d28b8d2a4654ef564.zip gcc-b31f80231df9ce6d9b50c62d28b8d2a4654ef564.tar.gz gcc-b31f80231df9ce6d9b50c62d28b8d2a4654ef564.tar.bz2 | |
Fortran] PR93309 – permit repeated 'implicit none(external)'
PR fortran/93309
* interface.c (gfc_procedure_use): Also check parent namespace for
'implict none (external)'.
* symbol.c (gfc_get_namespace): Don't set has_implicit_none_export
to parent namespace's setting.
PR fortran/93309
* gfortran.dg/external_implicit_none_2.f90: New.
Diffstat (limited to 'gcc/fortran/symbol.c')
| -rw-r--r-- | gcc/fortran/symbol.c | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/gcc/fortran/symbol.c b/gcc/fortran/symbol.c index 526f6c4..47b7164 100644 --- a/gcc/fortran/symbol.c +++ b/gcc/fortran/symbol.c @@ -2898,9 +2898,6 @@ gfc_get_namespace (gfc_namespace *parent, int parent_types) } } - if (parent_types && ns->parent != NULL) - ns->has_implicit_none_export = ns->parent->has_implicit_none_export; - ns->refs = 1; return ns; |