1! PR fortran/49792 2! { dg-do run } 3 4subroutine reverse(n, a) 5 integer :: n 6 real(kind=8) :: a(n) 7!$omp parallel workshare 8 a(:) = a(n:1:-1) 9!$omp end parallel workshare 10end subroutine reverse 11 12program pr49792 13 real(kind=8) :: a(16) = [1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16] 14 real(kind=8) :: b(16) 15 b(:) = a(16:1:-1) 16 call reverse (16,a) 17 if (any (a.ne.b)) call abort 18end program pr49792 19