re PR middle-end/59670 (ICE: expected gimple_call(error_mark), have…

re PR middle-end/59670 (ICE: expected gimple_call(error_mark), have gimple_assign(plus_expr) in gimple_call_internal_p, at gimple.h:2432)

	PR middle-end/59670
	* tree-vect-data-refs.c (vect_analyze_data_refs): Check
	is_gimple_call before calling gimple_call_internal_p.

	* gcc.dg/pr59670.c: New test.

From-SVN: r206503

gcc/ChangeLog

+2014-01-10  Jakub Jelinek  <jakub@redhat.com>
+
+	PR middle-end/59670
+	* tree-vect-data-refs.c (vect_analyze_data_refs): Check
+	is_gimple_call before calling gimple_call_internal_p.
+
 2014-01-09  Steve Ellcey  <sellcey@mips.com>
 
 	* Makefile.in (TREE_FLOW_H): Remove.

gcc/testsuite/ChangeLog

+2014-01-10  Jakub Jelinek  <jakub@redhat.com>
+
+	PR middle-end/59670
+	* gcc.dg/pr59670.c: New test.
+
 2014-01-09  Steve Ellcey  <sellcey@mips.com>
 
 	* gcc.dg/delay-slot-1.c: Restrict -mabi=64 to 64 bit processors.

gcc/testsuite/gcc.dg/pr59670.c

+/* PR middle-end/59670 */
+/* { dg-do compile } */
+/* { dg-options "-O1 -fopenmp-simd" } */
+
+int d[1024];
+
+int
+foo (int j, int b)
+{
+  int l, c = 0;
+#pragma omp simd reduction(+: c)
+  for (l = 0; l < b; ++l)
+    c += d[j + l];
+  return c;
+}

gcc/tree-vect-data-refs.c

@@ -3320,9 +3320,10 @@ again:
 			    {
 			      gimple def = SSA_NAME_DEF_STMT (off);
 			      tree reft = TREE_TYPE (DR_REF (newdr));
-			      if (gimple_call_internal_p (def)
-				  && gimple_call_internal_fn (def)
-				  == IFN_GOMP_SIMD_LANE)
+			      if (is_gimple_call (def)
+				  && gimple_call_internal_p (def)
+				  && (gimple_call_internal_fn (def)
+				      == IFN_GOMP_SIMD_LANE))
 				{
 				  tree arg = gimple_call_arg (def, 0);
 				  gcc_assert (TREE_CODE (arg) == SSA_NAME);