procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

expr.c (gfc_check_assign_symbol): Free lvalue.ref.

Browse source 
2013-09-18  Tobias Burnus  <burnus@net-b.de>

        * expr.c (gfc_check_assign_symbol): Free lvalue.ref.

From-SVN: r202722
This commit is contained in:
Tobias Burnus 2013-09-18 22:52:01 +02:00 • committed by Tobias Burnus
parent 8a26ad39c4
commit e3816ac91f
2 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
gcc/fortran/ChangeLog
View file

@ -1,3 +1,7 @@
2013-09-18 Tobias Burnus <burnus@net-b.de>
* expr.c (gfc_check_assign_symbol): Free lvalue.ref.
2013-09-18 Tobias Burnus <burnus@net-b.de>
PR fortran/43366

1
gcc/fortran/expr.c
View file

@ -3824,6 +3824,7 @@ gfc_check_assign_symbol (gfc_symbol *sym, gfc_component *comp, gfc_expr *rvalue)
r = gfc_check_assign (&lvalue, rvalue, 1);
free (lvalue.symtree);
free (lvalue.ref);
if (!r)
return r;