[Bug fortran/122439] [16 Regression] ubsan: fortran/openmp.cc:12239:19: runtime error: load of value 14, which is not a valid value for type 'omp_tp_type'

[parras at gcc dot gnu.org]

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

--- Comment #2 from Paul-Antoine Arras <parras at gcc dot gnu.org> ---
(In reply to Filip Kastl from comment #0)
> With ubsan-instrumented trunk GCC:
> 
> configure --enable-languages=default,jit,lto,go,d --enable-host-shared
> --enable-checking=release --disable-multilib
> --with-build-config=bootstrap-ubsan
> 
> Running these testsuite tests
> 
> gfortran.dg/gomp/declare-variant-1.f90
> gfortran.dg/gomp/declare-variant-2.f90
> 
> results in this error
> 
> fortran/openmp.cc:12239:19: runtime error: load of value 14, which is not a
> valid value for type 'omp_tp_type'

Can you confirm that r16-4681-gb8a8bb30d950b49beeac17e3495ca78d67278cd7 fixes
it?