1! PR fortran/49792 2! { dg-do run } 3! { dg-options "-std=f2003 -fall-intrinsics" } 4 5subroutine reverse(n, a) 6 integer :: n 7 real(kind=8) :: a(n) 8!$omp parallel workshare 9 a(:) = a(n:1:-1) 10!$omp end parallel workshare 11end subroutine reverse 12 13program pr49792 14 integer :: b(16) 15 integer, allocatable :: a(:) 16 b = 1 17!$omp parallel workshare 18 a = b 19!$omp end parallel workshare 20 if (size(a).ne.size(b)) STOP 1 21 if (any (a.ne.b)) STOP 2 22end program pr49792 23