new file mode 100644
@@ -0,0 +1,16 @@
+! { dg-do compile }
+ subroutine deuldlag(xi,et,ze,xlag,xeul,xj,xs)
+ real*8 shp(3,20),xs(3,3),xlag(3,20),xeul(3,20)
+ do i=1,3
+ do j=1,3
+ enddo
+ enddo
+ do i=1,3
+ do j=1,3
+ xs(i,j)=0.d0
+ do k=1,20
+ xs(i,j)=xs(i,j)+xeul(i,k)*shp(j,k)
+ enddo
+ enddo
+ enddo
+ end
@@ -1330,7 +1330,7 @@ vect_init_vector_1 (vec_info *vinfo, stmt_vec_info stmt_vinfo, gimple *new_stmt,
basic_block new_bb;
edge pe;
- if (nested_in_vect_loop_p (loop, stmt_vinfo))
+ if (stmt_vinfo && nested_in_vect_loop_p (loop, stmt_vinfo))
loop = loop->inner;
pe = loop_preheader_edge (loop);