Hi,
I got the following error when I tried to add task parallelism in a workshare construct.
The code works well only with the do loop parallelism and without the task parallelism.
i am simply trying to get the task parallelism to work for such loops. (ifort version is 11.1.038)
Please help me in resolving this issue.
Thanks.
ERROR -
ifort -O3 -r8 -g -traceback -openmp -c -o pc.o pc.f
: catastrophic error: **Internal compiler error: segmentation violation
signal raised** Please report this error along with the circumstances in
which it occurred in a Software Problem Report. Note: File and line
given may not be explicit cause of this error.
compilation aborted for pc.f (code 3)
make: *** [pc.o] Error 3
The code snippet is as follows,
---------------------------------------------
c$omp parallel
c$omp do
do m = 1, m_blk(myproc)
c$omp task firstprivate(m) private(ii,jj,kk,ib,ie,jb,je,kb,ke)
do kk = 1, nk_blk(m)
do jj = 1, nj_blk(m)
do ii = 1, ni_blk(m)
ib = i_b_blk(ii,jj,kk,m)
ie = i_e_blk(ii,jj,kk,m)
jb = j_b_blk(ii,jj,kk,m)
je = j_e_blk(ii,jj,kk,m)
kb = k_b_blk(ii,jj,kk,m)
ke = k_e_blk(ii,jj,kk,m)
if(i_pc.eq.1)call pc_jac_blk
1 (m,phi(ib-1:ie+1,jb-1:je+1,kb-1:ke+1,m),
1 phi1(ib-1:ie+1,jb-1:je+1,kb-1:ke+1,m),
1 ib,ie,jb,je,kb,ke)
if(i_pc.eq.2)call pc_ssor_blk
1 (m,phi(ib-1:ie+1,jb-1:je+1,kb-1:ke+1,m),
1 phi1(ib-1:ie+1,jb-1:je+1,kb-1:ke+1,m),
1 ib,ie,jb,je,kb,ke)
enddo
enddo
enddo
c$omp end task
enddo
c$omp end do nowait
....
c$omp end parallel
--------------------------------------------------
