gcc/testsuite/gfortran.dg/loop_versioning_1.f90

   1 ! { dg-options "-O3 -fdump-tree-lversion-details" }
   2
   3 ! The simplest IV case.
   4
   5 subroutine f1(x)
   6   real :: x(:)
   7   x(:) = 100
   8 end subroutine f1
   9
  10 subroutine f2(x, n, step)
  11   integer :: n, step
  12   real :: x(n * step)
  13   do i = 1, n
  14      x(i * step) = 100
  15   end do
  16 end subroutine f2
  17
  18 subroutine f3(x, limit, step)
  19   integer :: limit, step
  20   real :: x(limit)
  21   do i = 1, limit, step
  22      x(i) = 100
  23   end do
  24 end subroutine f3
  25
  26 ! { dg-final { scan-tree-dump-times {likely to be the innermost dimension} 1 "lversion" } }
  27 ! { dg-final { scan-tree-dump-times {want to version containing loop} 3 "lversion" } }
  28 ! { dg-final { scan-tree-dump-times {versioned this loop} 3 "lversion" } }