From: Frederik Harwath Date: Mon, 9 Dec 2019 16:30:25 +0000 (+0000) Subject: Fix column information for omp_clauses in Fortran code X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=9b4c16f2c93a089d81c9e6f3ea6d1abc36fd1ad1;p=gcc.git Fix column information for omp_clauses in Fortran code The location of all OpenMP/OpenACC clauses on any given line in Fortran code always points to the first clause on that line. Hence, the column information is wrong for all clauses but the first one. Use the correct location for each clause instead. 2019-12-09 Frederik Harwath /gcc/fortran/ * trans-openmp.c (gfc_trans_omp_reduction_list): Pass correct location for each clause to build_omp_clause. From-SVN: r279132 --- diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index c3a4c3adcdb..01866d5eec0 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2019-12-09 Frederik Harwath + + * trans-openmp.c (gfc_trans_omp_reduction_list): Pass correct location for each + clause to build_omp_clause. + 2018-12-08 Thomas Koenig PR fortran/92780 diff --git a/gcc/fortran/trans-openmp.c b/gcc/fortran/trans-openmp.c index d07ff86fc0b..356fd04e6c3 100644 --- a/gcc/fortran/trans-openmp.c +++ b/gcc/fortran/trans-openmp.c @@ -1982,7 +1982,7 @@ gfc_trans_omp_reduction_list (gfc_omp_namelist *namelist, tree list, tree t = gfc_trans_omp_variable (namelist->sym, false); if (t != error_mark_node) { - tree node = build_omp_clause (gfc_get_location (&where), + tree node = build_omp_clause (gfc_get_location (&namelist->where), OMP_CLAUSE_REDUCTION); OMP_CLAUSE_DECL (node) = t; if (mark_addressable)