gcc/testsuite/gfortran.dg/vect/pr39318.f90

   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