From: Paul-Antoine Arras <parras@baylibre.com>
Date: Mon, 27 Oct 2025 14:25:17 +0000 (+0100)
Subject: OpenMP/Fortran: Skip context selectors that have OMP_TRAIT_INVALID [PR122439]
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b8a8bb30d950b49beeac17e3495ca78d67278cd7;p=thirdparty%2Fgcc.git

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 357e6a7f09d..f5db9a81ea6 100644
--- 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;