[Bug fortran/66549] [5/6 Regression] ICE on valid in OMP parallel region

[mikael at gcc dot gnu.org]

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

--- Comment #4 from Mikael Morin <mikael at gcc dot gnu.org> ---
Created attachment 35796
  --> https://gcc.gnu.org/bugzilla/attachment.cgi?id=35796&action=edit
Draft patch