OpenMP/Fortran: Skip context selectors that have OMP_TRAIT_INVALID [PR122439]

This fixes a fallout of r16-4540-g80af807e52e4f4 that caused undefined
behaviour.

	PR fortran/122439

gcc/fortran/ChangeLog:

	* openmp.cc (gfc_resolve_omp_context_selector): Skip selectors that have
	OMP_TRAIT_INVALID.

diff --git a/gcc/fortran/openmp.cc b/gcc/fortran/openmp.cc
index 357e6a7f09d0cb84aa168dfbe8daf2ea38468f04..f5db9a81ea6a85847af9912ec164b2134e101d39 100644 (file)
--- a/gcc/fortran/openmp.cc
+++ b/gcc/fortran/openmp.cc
@@ -12236,6 +12236,8 @@ gfc_resolve_omp_context_selector (gfc_omp_set_selector *oss,
              }
          }
 
+       if (os->code == OMP_TRAIT_INVALID)
+         break;
        enum omp_tp_type property_kind = omp_ts_map[os->code].tp_type;
        gfc_omp_trait_property *otp = os->properties;