https://gcc.gnu.org/bugzilla/show_bug.cgi?id=89084
Jakub Jelinek <jakub at gcc dot gnu.org> changed:
What |Removed |Added
----------------------------------------------------------------------------
CC| |kargl at gcc dot gnu.org
--- Comment #6 from Jakub Jelinek <jakub at gcc dot gnu.org> ---
And the above mentioned tests seems to be what is flawed.
sym->ns->parent->code is the first statement in the parent namespace.
If the first statement is write, then it will be EXEC_WRITE, if the first
statement is e.g. j = 1, it will be EXEC_ASSIGN.
This has been added in r229540
https://gcc.gnu.org/ml/fortran/2015-10/msg00153.html
Unfortunately, all the testcases in that PR had EXEC_BLOCK as the first
statement in the parent namespace.
Either we can search for EXEC_BLOCK in the code chain and check if their ns is
the ns we are looking for, but that is going to be expensive in large
functions.
Or IMHO we could just test sym->ns->construct_entities, which is the flag set
on the namespaces of EXEC_BLOCK.
