From: Tobias Burnus <tburnus@baylibre.com>
Date: Wed, 5 Feb 2025 07:44:41 +0000 (+0100)
Subject: fortran/trans-openmp.cc: Use the correct member in gfc_omp_namelist [PR118745]
X-Git-Tag: basepoints/gcc-16~2187
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=3a5882707df50ed29905b3c47cbaa0868ea248c9;p=thirdparty%2Fgcc.git

fortran/trans-openmp.cc: Use the correct member in gfc_omp_namelist [PR118745]

gcc/fortran/ChangeLog:

	PR fortran/118745
	* trans-openmp.cc (gfc_trans_omp_declare_variant): Use
	append_args_list in the condition for the append_arg location.
---

diff --git a/gcc/fortran/trans-openmp.cc b/gcc/fortran/trans-openmp.cc
index a593f5a8e5e..e29ef85ae39 100644
--- a/gcc/fortran/trans-openmp.cc
+++ b/gcc/fortran/trans-openmp.cc
@@ -8839,7 +8839,7 @@ gfc_trans_omp_declare_variant (gfc_namespace *ns)
 		last_arg->next = extra_arg;
 	      else if (extra_arg)
 		variant_proc_sym->formal = extra_arg;
-	      locus *loc = (odv->adjust_args_list
+	      locus *loc = (odv->append_args_list
 			    ? &odv->append_args_list->where :  &odv->where);
 	      int nextra_arg = 0;
 	      for (; extra_arg; extra_arg = extra_arg->next)