re PR middle-end/19551 (pure (complex types) function call removed as dead (LAPACK routine claic1.f bug))

	* flow.c (propagate_one_insn): Formatting.

	PR middle-end/19551
	* flow.c (libcall_dead_p): Be more conservative if unsure.
	If there are any instructions between insn and call, see if they are
	all dead before saying the libcall is dead.

	* gcc.c-torture/execute/20050121-1.c: New test.
	* gcc.dg/20050121-2.c: New test.

From-SVN: r94145

1 files changed, 67 insertions, 0 deletions

diff --git a/gcc/testsuite/gcc.dg/20050121-2.c b/gcc/testsuite/gcc.dg/20050121-2.c
new file mode 100644
index 0000000..6a6092c
--- /dev/null
+++ b/gcc/testsuite/gcc.dg/20050121-2.c
@@ -0,0 +1,67 @@
+/* PR middle-end/19551 */
+/* { dg-options "-O2" } */
+/* { dg-do link } */
+
+extern void abort ();
+
+#define T(type, name) \
+extern __attribute__((pure)) _Complex type	\
+foo_c##name (int x);				\
+						\
+void						\
+bar_c##name (type *x)				\
+{						\
+  type f = __real foo_c##name (5);		\
+  if (0) *x = f;				\
+}						\
+						\
+void						\
+baz_c##name (type *x)				\
+{						\
+  type f = __imag foo_c##name (5);		\
+  if (0) *x = f;				\
+}						\
+						\
+extern __attribute__((pure)) type		\
+foo_##name (int x);				\
+						\
+void						\
+bar_##name (type *x)				\
+{						\
+  type f = foo_##name (5);			\
+  if (0) *x = f;				\
+}
+
+typedef long double ldouble_t;
+typedef long long llong;
+
+T (float, float)
+T (double, double)
+T (long double, ldouble_t)
+T (char, char)
+T (short, short)
+T (int, int)
+T (long, long)
+T (long long, llong)
+#undef T
+
+int
+main (void)
+{
+#define T(type, name) \
+  {						\
+    type var = 0;				\
+    bar_c##name (&var);				\
+    baz_c##name (&var);				\
+    bar_##name (&var);				\
+  }
+  T (float, float)
+  T (double, double)
+  T (long double, ldouble_t)
+  T (char, char)
+  T (short, short)
+  T (int, int)
+  T (long, long)
+  T (long long, llong)
+  return 0;
+}