gcc/testsuite/gfortran.dg/loop_versioning_9.f90

   1 ! { dg-options "-O3 -fdump-tree-lversion-details" }
   2
   3 subroutine f1(x)
   4   real :: x(:, :)
   5   x(1, :) = 100
   6 end subroutine f1
   7
   8 subroutine f2(x, i)
   9   real :: x(:, :)
  10   integer :: i
  11   x(i, :) = 100
  12 end subroutine f2
  13
  14 subroutine f3(x)
  15   real :: x(:, :)
  16   do j = lbound(x, 2), ubound(x, 2)
  17      x(1, j) = 100
  18   end do
  19 end subroutine f3
  20
  21 subroutine f4(x, i)
  22   real :: x(:, :)
  23   integer :: i
  24   do j = lbound(x, 2), ubound(x, 2)
  25      x(i, j) = 100
  26   end do
  27 end subroutine f4
  28
  29 ! { dg-final { scan-tree-dump-times {likely to be the innermost dimension} 4 "lversion" } }
  30 ! { dg-final { scan-tree-dump-not {want to version} "lversion" } }
  31 ! { dg-final { scan-tree-dump-not {versioned} "lversion" } }