diff options
| author | Tobias Burnus <tobias@codesourcery.com> | 2019-12-07 11:07:07 +0000 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2019-12-07 12:07:07 +0100 |
| commit | 9c81750c5bedd7883182ee2684a012c6210ebe1d (patch) | |
| tree | a3355f687262d05caae19a9ab28b2fba2c9745ac /gcc/fortran/trans.h | |
| parent | b01d215df18ba753746a170125b883befe100d67 (diff) | |
| download | gcc-9c81750c5bedd7883182ee2684a012c6210ebe1d.zip gcc-9c81750c5bedd7883182ee2684a012c6210ebe1d.tar.gz gcc-9c81750c5bedd7883182ee2684a012c6210ebe1d.tar.bz2 | |
Fortran] PR 92793 - fix column used for error diagnostic
PR fortran/92793
* trans.c (gfc_get_location): Declare.
* trans.c (gfc_get_location): Define; returns column-corrected location.
(trans_runtime_error_vararg, gfc_trans_runtime_check,
gfc_generate_module_code): Use new function.
* trans-array.c (gfc_trans_auto_array_allocation): Likewise.
* trans-common.c (build_field, get_init_field, create_common): Likewise.
* trans-decl.c (gfc_build_label_decl, gfc_get_symbol_decl): Likewise.
* trans-openmp.c (gfc_trans_omp_reduction_list, gfc_trans_omp_clauses):
Likewise.
* trans-stmt.c (gfc_trans_if_1): Likewise.
From-SVN: r279075
Diffstat (limited to 'gcc/fortran/trans.h')
| -rw-r--r-- | gcc/fortran/trans.h | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/gcc/fortran/trans.h b/gcc/fortran/trans.h index 07c1e4f..d3c0572 100644 --- a/gcc/fortran/trans.h +++ b/gcc/fortran/trans.h @@ -658,6 +658,10 @@ void gfc_finish_decl_attrs (tree, symbol_attribute *); /* Allocate the lang-specific part of a decl node. */ void gfc_allocate_lang_decl (tree); +/* Get the location suitable for the ME from a gfortran locus; required to get + the column number right. */ +location_t gfc_get_location (locus *); + /* Advance along a TREE_CHAIN. */ tree gfc_advance_chain (tree, int); |