[Bug fortran/92123] [F2018/array-descriptor] Scalar allocatable/pointer with array descriptor (via bind(C)): ICE with select rank or error scalar variable with POINTER or ALLOCATABLE in procedure with BIND(C) is not yet supported

[jakub at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=92123

--- Comment #11 from Jakub Jelinek <jakub at gcc dot gnu.org> ---
The TREE_STATIC looks wrong to me, it will misbehave if the function is called
recursively, or if the function is called several times concurrently (say in
OpenMP).
If the reason for TREE_STATIC is that the artificial var is being declared in
some inner scope and then used outside of that scope, perhaps it needs to be
declared in some outer scope, perhaps in the outermost scope of the function.