[Bug fortran/100965] [OpenMP] ICE: Error: incorrect sharing of tree nodes

[jakub at gcc dot gnu.org]

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

--- Comment #1 from Jakub Jelinek <jakub at gcc dot gnu.org> ---
Created attachment 50965
  --> https://gcc.gnu.org/bugzilla/attachment.cgi?id=50965&action=edit
gcc12-pr100965.patch

Untested fix.