https://gcc.gnu.org/g:4f0432cf258159b9055e6ef0cf5b63d6773a85fd
commit 4f0432cf258159b9055e6ef0cf5b63d6773a85fd
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.
(cherry picked from commit 3a5882707df50ed29905b3c47cbaa0868ea248c9)
Diff:
---
gcc/fortran/ChangeLog.omp | 9 +++++++++
gcc/fortran/trans-openmp.cc | 2 +-
2 files changed, 10 insertions(+), 1 deletion(-)
diff --git a/gcc/fortran/ChangeLog.omp b/gcc/fortran/ChangeLog.omp
index a5d7bbfed544..cab0b2b2193c 100644
--- a/gcc/fortran/ChangeLog.omp
+++ b/gcc/fortran/ChangeLog.omp
@@ -1,3 +1,12 @@
+2025-02-12 Tobias Burnus <tbur...@baylibre.com>
+
+ Backported from master:
+ 2025-02-05 Tobias Burnus <tbur...@baylibre.com>
+
+ PR fortran/118745
+ * trans-openmp.cc (gfc_trans_omp_declare_variant): Use
+ append_args_list in the condition for the append_arg location.
+
2025-01-30 Tobias Burnus <tbur...@baylibre.com>
Backported from master:
diff --git a/gcc/fortran/trans-openmp.cc b/gcc/fortran/trans-openmp.cc
index e79794d1859e..e15b49929b04 100644
--- a/gcc/fortran/trans-openmp.cc
+++ b/gcc/fortran/trans-openmp.cc
@@ -11386,7 +11386,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)
