diff options
| author | Tobias Burnus <tburnus@baylibre.com> | 2025-02-05 08:44:41 +0100 |
|---|---|---|
| committer | Tobias Burnus <tburnus@baylibre.com> | 2025-02-05 08:44:41 +0100 |
| commit | 3a5882707df50ed29905b3c47cbaa0868ea248c9 (patch) | |
| tree | 95d40d87afe9d3fa9008dcca1696d8e4a4086070 /gcc/fortran/trans-openmp.cc | |
| parent | e41a5a2a0832509fa1c0b7cab0c8001fadbd23d4 (diff) | |
| download | gcc-3a5882707df50ed29905b3c47cbaa0868ea248c9.zip gcc-3a5882707df50ed29905b3c47cbaa0868ea248c9.tar.gz gcc-3a5882707df50ed29905b3c47cbaa0868ea248c9.tar.bz2 | |
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.
Diffstat (limited to 'gcc/fortran/trans-openmp.cc')
| -rw-r--r-- | gcc/fortran/trans-openmp.cc | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/trans-openmp.cc b/gcc/fortran/trans-openmp.cc index a593f5a..e29ef85 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) |