1! PR fortran/87752
2! { dg-do compile }
3! { dg-additional-options "-Ofast" }
4
5subroutine foo (n, u, v)
6  integer :: n
7  real, pointer :: u(:), v(:)
8  !$omp parallel do simd
9  do i = 1, n
10    u(:) = v(:)
11  end do
12end
13