gcc/testsuite/gfortran.dg/loop_versioning_5.f90

   1 ! { dg-options "-O3 -fdump-tree-lversion-details -fno-frontend-loop-interchange" }
   2
   3 ! Make sure that in a "badly nested" loop, we don't treat the inner loop
   4 ! as iterating over the inner dimension with a variable stride.
   5
   6 subroutine f1(x, n)
   7   integer :: n
   8   real :: x(100, 100)
   9   do i = 1, n
  10      do j = 1, n
  11         x(i, j) = 100
  12      end do
  13   end do
  14 end subroutine f1
  15
  16 subroutine f2(x, n, step)
  17   integer :: n, step
  18   real :: x(100, 100)
  19   do i = 1, n
  20      do j = 1, n
  21         x(i, j * step) = 100
  22      end do
  23   end do
  24 end subroutine f2
  25
  26 subroutine f3(x, n)
  27   integer :: n
  28   real :: x(n, n)
  29   do i = 1, n
  30      do j = 1, n
  31         x(i, j) = 100
  32      end do
  33   end do
  34 end subroutine f3
  35
  36 subroutine f4(x, n, step)
  37   integer :: n, step
  38   real :: x(n, n * step)
  39   do i = 1, n
  40      do j = 1, n
  41         x(i, j * step) = 100
  42      end do
  43   end do
  44 end subroutine f4
  45
  46 subroutine f5(x, n, limit, step)
  47   integer :: n, limit, step
  48   real :: x(n, limit)
  49   do i = 1, n
  50      do j = 1, limit, step
  51         x(i, j) = 100
  52      end do
  53   end do
  54 end subroutine f5
  55
  56 ! { dg-final { scan-tree-dump-not {want to version} "lversion" } }
  57 ! { dg-final { scan-tree-dump-not {versioned} "lversion" } }