1! PR fortran/71687
2! { dg-do compile }
3! { dg-additional-options "-fstack-arrays -O2" }
4
5subroutine s (n, x)
6   integer :: n
7   real :: x(n)
8!$omp parallel
9   x(1:n) = x(n:1:-1)
10!$omp end parallel
11end
12