diff options
author | vehre <vehre@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-05-27 08:48:51 +0000 |
---|---|---|
committer | vehre <vehre@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-05-27 08:48:51 +0000 |
commit | c26f6f28f4ddf8da0a416176226e0fbd42366919 (patch) | |
tree | 101902d8c62b4c315316bf2f38163574deedbad6 /gcc/fortran/trans-stmt.c | |
parent | 84f531067d2ca941ab92318e23b34bfa4f8c4ed4 (diff) |
gcc/fortran/ChangeLog:
2015-05-27 Andre Vehreschild <vehre@gmx.de>
* trans-stmt.c (gfc_trans_allocate): Add missing location
information for e3rhs.
gcc/testsuite/ChangeLog:
2015-05-27 Andre Vehreschild <vehre@gmx.de>
* gfortran.dg/allocate_with_source_5.f90: Correct errorneous
semantic.
* gfortran.dg/allocate_with_source_6.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@223738 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/trans-stmt.c')
-rw-r--r-- | gcc/fortran/trans-stmt.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/fortran/trans-stmt.c b/gcc/fortran/trans-stmt.c index 2c0304b7329..81943b0142a 100644 --- a/gcc/fortran/trans-stmt.c +++ b/gcc/fortran/trans-stmt.c @@ -5362,6 +5362,7 @@ gfc_trans_allocate (gfc_code * code) bug. */ newsym->n.sym->attr.referenced = 1; e3rhs->expr_type = EXPR_VARIABLE; + e3rhs->where = code->expr3->where; /* Set the symbols type, upto it was BT_UNKNOWN. */ newsym->n.sym->ts = e3rhs->ts; /* Check whether the expr3 is array valued. */ |