diff options
| author | Jakub Jelinek <jakub@redhat.com> | 2010-05-14 09:40:06 +0200 |
|---|---|---|
| committer | Jakub Jelinek <jakub@gcc.gnu.org> | 2010-05-14 09:40:06 +0200 |
| commit | 88e09c797b51a5351ae3a7c599b530cfb2708be6 (patch) | |
| tree | e39ccc528bc3ef0a7db14f0ca3cd31862e8ae8cb /gcc/fortran/trans.c | |
| parent | c46a5e284eeb2cfdfe882c1ad1e16ffd73eb4173 (diff) | |
| download | gcc-88e09c797b51a5351ae3a7c599b530cfb2708be6.zip gcc-88e09c797b51a5351ae3a7c599b530cfb2708be6.tar.gz gcc-88e09c797b51a5351ae3a7c599b530cfb2708be6.tar.bz2 | |
trans.c (trans_code): Set backend locus early.
* trans.c (trans_code): Set backend locus early.
* trans-decl.c (gfc_get_fake_result_decl): Use source location
of the function instead of current input_location.
* gfortran.dg/gomp/pr44036-1.f90: Adjust.
From-SVN: r159388
Diffstat (limited to 'gcc/fortran/trans.c')
| -rw-r--r-- | gcc/fortran/trans.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/gcc/fortran/trans.c b/gcc/fortran/trans.c index 21c5604..8acccf8 100644 --- a/gcc/fortran/trans.c +++ b/gcc/fortran/trans.c @@ -1067,6 +1067,8 @@ trans_code (gfc_code * code, tree cond) gfc_add_expr_to_block (&block, res); } + gfc_set_backend_locus (&code->loc); + switch (code->op) { case EXEC_NOP: |