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