3 ! { dg-options "-std=f2003 -fall-intrinsics" }
5 subroutine reverse(n
, a
)
8 !$omp parallel workshare
10 !$omp end parallel workshare
11 end subroutine reverse
15 integer, allocatable
:: a(:)
17 !$omp parallel workshare
19 !$omp end parallel workshare
20 if (size(a
).ne
.size(b
)) call abort()
21 if (any (a
.ne
.b
)) call abort()