[Bug fortran/103039] [12 Regression] Segfault with openmp block within a select type block since r12-1016-g0e3b3b77e13cac76

[mscfd at gmx dot net via Gcc-bugs]

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

--- Comment #12 from martin <mscfd at gmx dot net> ---
Thanks for fixing! I just checked with the real code and there it also looks
good.