| ! { dg-do compile { target fopenmp } } | |
| ! { dg-additional-options "-fopenmp -fexceptions" } | |
| subroutine adw_trajsp (F_u,i0,in,j0,jn) | |
| implicit none | |
| real F_u(*) | |
| integer i0,in,j0,jn | |
| integer n,i,j | |
| real*8 xsin(i0:in,j0:jn) | |
| !$omp parallel do private(xsin) | |
| do j=j0,jn | |
| do i=i0,in | |
| xsin(i,j) = sqrt(F_u(n)) | |
| end do | |
| end do | |
| !$omp end parallel do | |
| return | |
| end | |