From: Tobias Burnus <tburnus@baylibre.com>
Date: Wed, 11 Sep 2024 07:25:47 +0000 (+0200)
Subject: fortran/openmp.cc: Fix var init and locus use to avoid uninit values [PR fortran... 
X-Git-Tag: basepoints/gcc-16~5972
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=4e9265a474def98cb6cdb59c15fbcb7630ba330e;p=thirdparty%2Fgcc.git

fortran/openmp.cc: Fix var init and locus use to avoid uninit values [PR fortran/116661]

gcc/fortran/ChangeLog:

	PR fortran/116661
	* openmp.cc (gfc_match_omp_prefer_type): NULL init a gfc_expr
	variable and use right locus in gfc_error.
---

diff --git a/gcc/fortran/openmp.cc b/gcc/fortran/openmp.cc
index c04d8b0f528..1145e2ff890 100644
--- a/gcc/fortran/openmp.cc
+++ b/gcc/fortran/openmp.cc
@@ -1860,6 +1860,7 @@ gfc_match_omp_prefer_type (char **pref_str, int *pref_str_len, int **pref_int_ar
 		  }
 		fr_found = true;
 		gfc_symbol *sym = NULL;
+		e = NULL;
 		locus loc = gfc_current_locus;
 		if (gfc_match_symbol (&sym, 0) != MATCH_YES
 		    || gfc_match (" _") == MATCH_YES)
@@ -1881,7 +1882,7 @@ gfc_match_omp_prefer_type (char **pref_str, int *pref_str_len, int **pref_int_ar
 		  {
 		    gfc_error ("Expected constant integer identifier or "
 			       "non-empty default-kind character literal at %L",
-			       &e->where);
+			       &loc);
 		    gfc_free_expr (e);
 		    return MATCH_ERROR;
 		  }