OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [vect/] [O3-pr49957.f] - Blame information for rev 774

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn
! { dg-do compile }
2
! { dg-require-effective-target vect_double }
3
      subroutine shell(nx,ny,nz,q,dq)
4
      implicit none
5
      integer i,j,k,l,nx,ny,nz
6
      real*8 q(5,nx,ny),dq(5,nx,ny)
7
         do j=1,ny
8
            do i=1,nx
9
               do l=1,5
10
                  q(l,i,j)=q(l,i,j)+dq(l,i,j)
11
               enddo
12
            enddo
13
         enddo
14
      return
15
      end
16
! { dg-final { scan-tree-dump "vectorized 1 loops" "vect" { xfail vect_no_align } } }
17
! { dg-final { cleanup-tree-dump "vect" } }

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.