gcc/testsuite/gfortran.dg/graphite/pr42326.f90

   1 ! { dg-do compile { target i?86-*-* x86_64-*-* } }
   2 ! { dg-require-effective-target ilp32 }
   3 ! { dg-options "-O2 -floop-strip-mine -fprefetch-loop-arrays -msse2" }
   4
   5 subroutine blts ( ldmx, ldmy, v, tmp1, i, j, k)
   6   implicit none
   7   integer ldmx, ldmy, i, j, k, ip, m, l
   8   real*8 tmp, tmp1, v( 5, ldmx, ldmy, *), tmat(5,5)
   9
  10   do ip = 1, 4
  11      do m = ip+1, 5
  12         tmp = tmp1 * tmat( m, ip )
  13         do l = ip+1, 5
  14            tmat( m, l ) =  tmat( m, l ) - tmat( ip, l )
  15         end do
  16         v( m, i, j, k ) = tmp
  17      end do
  18   end do
  19   return
  20 end subroutine blts
  21
  22 subroutine phasad(t,i,ium)
  23   implicit none
  24   real t(5,4)
  25   integer i,l,ll,ium
  26
  27   do l=1,2
  28      ll=2*l
  29      do i=1,ium
  30         t(i,ll-1)=t(i,ll-1)+t(i,ll)
  31      enddo
  32   enddo
  33   return
  34 end subroutine phasad
  35