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