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