aboutsummaryrefslogtreecommitdiffstats
path: root/gcc-4.9/gcc/testsuite/gfortran.dg/pr54889.f90
blob: 68c6bee00b15a1550060d31d11947c3569708f79 (plain)
1
2
3
4
5
6
7
8
9
10
! PR tree-optimization/54889
! { dg-do compile }
! { dg-options "-O3" }
! { dg-additional-options "-mavx" { target { i?86-*-* x86_64-*-* } } }

subroutine foo(x,y,z)
  logical, pointer :: x(:,:)
  integer :: y, z
  x=x(1:y,1:z)
end subroutine