1! { dg-do compile { target fopenmp } }
2! { dg-options "-c -fopenmp -fexceptions -O2 -ftree-vectorize" }
3
4      subroutine adw_trajsp (F_u,i0,in,j0,jn)
5      implicit none
6      real F_u(*)
7      integer i0,in,j0,jn
8      integer n,i,j
9      real*8 xsin(i0:in,j0:jn)
10!$omp parallel do private(xsin)
11         do j=j0,jn
12         do i=i0,in
13            xsin(i,j) = sqrt(F_u(n))
14         end do
15         end do
16!$omp end parallel do
17      return
18      end
19
20! { dg-final { cleanup-tree-dump "vect" } }
21
22