https://gcc.gnu.org/g:3a5882707df50ed29905b3c47cbaa0868ea248c9
commit r15-7366-g3a5882707df50ed29905b3c47cbaa0868ea248c9
Author: Tobias Burnus <tbur...@baylibre.com>
Date: Wed Feb 5 08:44:41 2025 +0100
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:
---
gcc/fortran/trans-openmp.cc | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/gcc/fortran/trans-openmp.cc b/gcc/fortran/trans-openmp.cc
index a593f5a8e5e9..e29ef85ae398 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)
