[Bug fortran/124656] [16 Regression] [UBSAN] check.cc:4100:13: runtime error

[anlauf at gcc dot gnu.org]

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

anlauf at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |anlauf at gcc dot gnu.org

--- Comment #3 from anlauf at gcc dot gnu.org ---
Created attachment 64041
  --> https://gcc.gnu.org/bugzilla/attachment.cgi?id=64041&action=edit
Lightly tested patch

Does this work for you with UBSAN?