------- Comment #4 from dominiq at lps dot ens dot fr 2009-02-27 19:59 ------- Reduced test:
subroutine adw_trajsp ( F_lon, F_lat, F_x, F_y, F_z, % F_u, F_v, F_dt,i0,in,j0,jn) implicit none real F_lon(*),F_lat(*),F_x(*),F_y(*),F_z(*),F_u(*),F_v(*),F_dt integer i0,in,j0,jn integer n, ij, nij,vnij, i,j,k 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) ** 2 + F_v(n) ** 2 ) * F_dt end do end do !$omp end parallel do return end ibook-dhum] f90/bug% gfc -c -fopenmp -fexceptions -O2 -ftree-vectorize adw_trajsp_red.f adw_trajsp_red.f: In function 'adw_trajsp_.omp_fn.0': adw_trajsp_red.f:8: error: Dead STMT in EH table D.1679_46 = __builtin_sqrtf (D.1678_45); adw_trajsp_red.f:8: internal compiler error: verify_stmts failed -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=39318