diff options
| author | Jakub Jelinek <jakub@redhat.com> | 2010-12-21 15:51:42 +0100 |
|---|---|---|
| committer | Jakub Jelinek <jakub@gcc.gnu.org> | 2010-12-21 15:51:42 +0100 |
| commit | 96676a5df76b1fe038fde93107ef7107c17e7ee6 (patch) | |
| tree | 99bab36dcd38c19b767f60a3869d696e3c2fef2b | |
| parent | c75534d1e6e8b62ea4dabf58c2deff1ac09796a7 (diff) | |
| download | gcc-96676a5df76b1fe038fde93107ef7107c17e7ee6.zip gcc-96676a5df76b1fe038fde93107ef7107c17e7ee6.tar.gz gcc-96676a5df76b1fe038fde93107ef7107c17e7ee6.tar.bz2 | |
re PR rtl-optimization/47008 (gfortran.dg/extends_{23}.f03 FAIL with -Os -fschedule-insns)
PR rtl-optimization/47008
* postreload.c (reload_combine_note_store): Also handle
PRE_MODIFY and POST_MODIFY.
* gfortran.dg/pr47008.f03: New test.
From-SVN: r168117
| -rw-r--r-- | gcc/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/postreload.c | 3 | ||||
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/pr47008.f03 | 24 |
4 files changed, 37 insertions, 1 deletions
diff --git a/gcc/ChangeLog b/gcc/ChangeLog index 14d973b..2b47e8e 100644 --- a/gcc/ChangeLog +++ b/gcc/ChangeLog @@ -1,3 +1,9 @@ +2010-12-21 Jakub Jelinek <jakub@redhat.com> + + PR rtl-optimization/47008 + * postreload.c (reload_combine_note_store): Also handle + PRE_MODIFY and POST_MODIFY. + 2010-12-21 Ulrich Weigand <Ulrich.Weigand@de.ibm.com> * config/arm/arm.c (require_pic_register): Set INSN_LOCATOR for all diff --git a/gcc/postreload.c b/gcc/postreload.c index 97e8b4a..15c22e2 100644 --- a/gcc/postreload.c +++ b/gcc/postreload.c @@ -1415,7 +1415,8 @@ reload_combine_note_store (rtx dst, const_rtx set, void *data ATTRIBUTE_UNUSED) { dst = XEXP (dst, 0); if (GET_CODE (dst) == PRE_INC || GET_CODE (dst) == POST_INC - || GET_CODE (dst) == PRE_DEC || GET_CODE (dst) == POST_DEC) + || GET_CODE (dst) == PRE_DEC || GET_CODE (dst) == POST_DEC + || GET_CODE (dst) == PRE_MODIFY || GET_CODE (dst) == POST_MODIFY) { regno = REGNO (XEXP (dst, 0)); mode = GET_MODE (XEXP (dst, 0)); diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 50cfa32..3a66f1c 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2010-12-21 Jakub Jelinek <jakub@redhat.com> + + PR rtl-optimization/47008 + * gfortran.dg/pr47008.f03: New test. + 2010-12-21 Nicola Pero <nicola.pero@meta-innovation.com> PR libobjc/45953 diff --git a/gcc/testsuite/gfortran.dg/pr47008.f03 b/gcc/testsuite/gfortran.dg/pr47008.f03 new file mode 100644 index 0000000..a3e1e1d --- /dev/null +++ b/gcc/testsuite/gfortran.dg/pr47008.f03 @@ -0,0 +1,24 @@ +! PR rtl-optimization/47008 +! { dg-do run } +! { dg-options "-Os -fno-asynchronous-unwind-tables -fschedule-insns -fsched-pressure -fno-inline" { target i?86-*-* x86_64-*-* } } + +program main + type :: t + integer :: i + character(24) :: c + type (t), pointer :: p + end type t + type(t), pointer :: r, p + allocate (p) + p = t (123455, "", p) + r => entry ("", 123456, 1, "", 99, "", p) + if (p%i /= 123455) call abort +contains + function entry (x, i, j, c, k, d, p) result (q) + integer :: i, j, k + character (*) :: x, c, d + type (t), pointer :: p, q + allocate (q) + q = t (i, c, p) + end function +end program main |