gcc/testsuite/gfortran.dg/loop_versioning_10.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, 1), ubound(x, 1)
  17      x(j, 1) = 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, 1), ubound(x, 1)
  25      x(j, i) = 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-times {want to version} 4 "lversion" } }
  31 ! { dg-final { scan-tree-dump-times {versioned} 4 "lversion" } }