On 20 January 2020 15:55:23 CET, Tobias Burnus <tob...@codesourcery.com> wrote: >Using "implicit none" multiple times in a scoping unit is not permitted > >– and checked for. > >However, using one in the parent name space and re-confirming it in the > >current name space is permitted – but was before rejected.
+ if (sym->attr.proc == PROC_UNKNOWN) + for (gfc_namespace *ns = sym->ns; ns; ns = ns->parent) + if (ns->has_implicit_none_export) + has_implicit_none_export = true; s/;/, break;/ If we don't do this for >= -O1 already. + if (has_implicit_none_export) > >OK for the trunk? LGTM otherwise, thanks
