1! PR fortran/72744
2! { dg-do compile }
3! { dg-additional-options "-Ofast" }
4
5program pr72744
6  integer, parameter :: n = 20
7  integer :: i, z(n), h(n)
8  z = [(i, i=1,n)]
9  h = [(i, i=n,1,-1)]
10  call sub (n, h)
11  if ( any(h/=z) ) STOP 1
12end
13subroutine sub (n, x)
14  integer :: n, x(n)
15!$omp parallel
16  x(:) = x(n:1:-1)
17!$omp end parallel
18end
19