1! { dg-do compile { target fopenmp } } 2! { dg-additional-options "-fopenmp -fexceptions" } 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 21