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