gcc/testsuite/gfortran.dg/pr54889.f90

   1 ! PR tree-optimization/54889
   2 ! { dg-do compile }
   3 ! { dg-options "-O3" }
   4 ! { dg-additional-options "-mavx" { target { i?86-*-* x86_64-*-* } } }
   5
   6 subroutine foo(x,y,z)
   7   logical, pointer :: x(:,:)
   8   integer :: y, z
   9   x=x(1:y,1:z)
  10 end subroutine