This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
Re: [PATCH] Fix PR46665
- From: "H.J. Lu" <hjl dot tools at gmail dot com>
- To: Richard Guenther <rguenther at suse dot de>
- Cc: gcc-patches at gcc dot gnu dot org
- Date: Fri, 26 Nov 2010 07:15:32 -0800
- Subject: Re: [PATCH] Fix PR46665
- References: <alpine.LNX.2.00.1011261320490.23074@zhemvz.fhfr.qr>
On Fri, Nov 26, 2010 at 4:21 AM, Richard Guenther <rguenther@suse.de> wrote:
>
> I should remember really my own inventions ...
>
> Bootstrap and regtest pending on x86_64-unknown-linux-gnu.
>
> Richard.
>
> 2010-11-26 ?Richard Guenther ?<rguenther@suse.de>
>
> ? ? ? ?PR tree-optimization/46665
> ? ? ? ?* tree-ssa-structalias.c (pt_solution_set_var): Use DECL_PT_UID.
>
I checked in this patch to add a testcase.
--
H.J.
----
Index: ChangeLog
===================================================================
--- ChangeLog (revision 167178)
+++ ChangeLog (working copy)
@@ -1,3 +1,8 @@
+2010-11-26 H.J. Lu <hongjiu.lu@intel.com>
+
+ PR tree-optimization/46665
+ * gfortran.dg/pr46665.f90: New.
+
2010-11-26 Jakub Jelinek <jakub@redhat.com>
PR middle-end/46647
Index: gfortran.dg/pr46665.f90
===================================================================
--- gfortran.dg/pr46665.f90 (revision 0)
+++ gfortran.dg/pr46665.f90 (revision 0)
@@ -0,0 +1,36 @@
+! { dg-do run }
+! { dg-options "-fipa-pta -fno-tree-ccp -fno-tree-forwprop -g" }
+
+program main
+ implicit none
+ call test ((/ 3, 4, 5 /), f ((/ 3, 4, 5 /)))
+contains
+ subroutine test (expected, x)
+ integer, dimension (:,:,:) :: x
+ integer, dimension (3) :: expected
+ integer :: i, i1, i2, i3
+ do i = 1, 3
+ if (size (x, i) .ne. expected (i)) call abort
+ end do
+ do i1 = 1, expected (1)
+ do i2 = 1, expected (2)
+ do i3 = 1, expected (3)
+ if (x (i1, i2, i3) .ne. i1 + i2 * 10 + i3 * 100) call abort
+ end do
+ end do
+ end do
+ end subroutine test
+
+ function f (x)
+ integer, dimension (3) :: x
+ integer, dimension (x(1), x(2), x(3)) :: f
+ integer :: i1, i2, i3
+ do i1 = 1, x(1)
+ do i2 = 1, x(2)
+ do i3 = 1, x(3)
+ f (i1, i2, i3) = i1 + i2 * 10 + i3 * 100
+ end do
+ end do
+ end do
+ end function f
+end program main