diff options
| author | Andrew Pinski <andrew_pinski@playstation.sony.com> | 2006-11-15 17:04:56 +0000 |
|---|---|---|
| committer | Andrew Pinski <pinskia@gcc.gnu.org> | 2006-11-15 09:04:56 -0800 |
| commit | f9f63ff2153c3b281c17e3de313f9c83ff08f04c (patch) | |
| tree | c2f3504f54bd9ebf0422c99af06558bdeb43d873 | |
| parent | 47a37ce45e4feb8cd84a315353a2077c9fbda747 (diff) | |
| download | gcc-f9f63ff2153c3b281c17e3de313f9c83ff08f04c.zip gcc-f9f63ff2153c3b281c17e3de313f9c83ff08f04c.tar.gz gcc-f9f63ff2153c3b281c17e3de313f9c83ff08f04c.tar.bz2 | |
re PR tree-optimization/29788 (ICE in var_ann, at tree-flow-inline.h:130)
2006-11-15 Andrew Pinski <andrew_pinski@playstation.sony.com>
PR tree-opt/29788
* fold-const.c (fold_indirect_ref_1): Fold *&CONST_DECL down
to what is the const decl is a place holder for.
2006-11-15 Andrew Pinski <andrew_pinski@playstation.sony.com>
PR tree-opt/29788
* gfortran.fortran-torture/compile/inline_1.f90:
New testcase.
From-SVN: r118861
| -rw-r--r-- | gcc/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/fold-const.c | 3 | ||||
| -rw-r--r-- | gcc/testsuite/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.fortran-torture/compile/inline_1.f90 | 17 |
4 files changed, 32 insertions, 0 deletions
diff --git a/gcc/ChangeLog b/gcc/ChangeLog index eb0dd2e..382a8a30 100644 --- a/gcc/ChangeLog +++ b/gcc/ChangeLog @@ -1,3 +1,9 @@ +2006-11-15 Andrew Pinski <andrew_pinski@playstation.sony.com> + + PR tree-opt/29788 + * fold-const.c (fold_indirect_ref_1): Fold *&CONST_DECL down + to what is the const decl is a place holder for. + 2006-11-15 Uros Bizjak <ubizjak@gmail.com> * config/i386/i386.opt: New target option -mx87regparm. diff --git a/gcc/fold-const.c b/gcc/fold-const.c index eb3b457..143dcad 100644 --- a/gcc/fold-const.c +++ b/gcc/fold-const.c @@ -13038,6 +13038,9 @@ fold_indirect_ref_1 (tree type, tree op0) { tree op = TREE_OPERAND (sub, 0); tree optype = TREE_TYPE (op); + /* *&CONST_DECL -> to the value of the const decl. */ + if (TREE_CODE (op) == CONST_DECL) + return DECL_INITIAL (op); /* *&p => p; make sure to handle *&"str"[cst] here. */ if (type == optype) { diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index d5f56ee..b60e1b8 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2006-11-15 Andrew Pinski <andrew_pinski@playstation.sony.com> + + PR tree-opt/29788 + * gfortran.fortran-torture/compile/inline_1.f90: + New testcase. + 2006-11-15 Uros Bizjak <ubizjak@gmail.com> * gcc.target/i386/x87regparm-1.c: New test. diff --git a/gcc/testsuite/gfortran.fortran-torture/compile/inline_1.f90 b/gcc/testsuite/gfortran.fortran-torture/compile/inline_1.f90 new file mode 100644 index 0000000..58c02f2 --- /dev/null +++ b/gcc/testsuite/gfortran.fortran-torture/compile/inline_1.f90 @@ -0,0 +1,17 @@ +program gfcbug43 + call try_fit (1) + call try_fit (1) +contains + subroutine try_fit (k) + call fit (1, debug=.true.) + end subroutine try_fit + subroutine fit (k, debug) + logical, intent(in), optional :: debug + do j = 1, 2 + maxerr1 = funk (r ,x1 , x1) + end do + if (debug) then + print "help" + end if + end subroutine fit +end program gfcbug43 |