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 a593f5a8e5e9f669ce766c1be288412c907a6f25..e29ef85ae398ad8dbc3fecfd12ca7f92a45bb66a 100644 (file)
--- 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)