------- Comment #9 from irar at il dot ibm dot com  2009-04-02 10:07 -------
Will the following test do the job? (I added -m64 for target i686-*-*)

! { dg-do compile }
! { dg-options "-c -O3 -fdump-tree-vect-details -m64" { target i686-*-* } }
      subroutine foo(a,c,i,m)
      dimension a(4,*),b(3,64),c(3,200),d(64)
      integer*8 i,j,k,l,m
      do j=1,m,64
        do k=1,m-j+1
          d(k)=a(4,j-1+k)
          do l=1,3
            b(l,k)=c(l,i)+a(l,j-1+k)
          end do
        end do
        call bar(b,d,i)
      end do
      end

! { dg-final { cleanup-tree-dump "vect" } }


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=39595

Reply via email to