From 489e08401ccdf3cb25a37d0c79b39762f64f085b Mon Sep 17 00:00:00 2001
From: Dave Love <fx@gcc.gnu.org>
Date: Fri, 24 Apr 1998 07:53:34 +0000
Subject: [PATCH] New test.

From-SVN: r19398
---
 gcc/testsuite/g77.f-torture/compile/980424-0.f | 6 ++++++
 1 file changed, 6 insertions(+)
 create mode 100644 gcc/testsuite/g77.f-torture/compile/980424-0.f

diff --git a/gcc/testsuite/g77.f-torture/compile/980424-0.f b/gcc/testsuite/g77.f-torture/compile/980424-0.f
new file mode 100644
index 00000000000..5df45bb79a9
--- /dev/null
+++ b/gcc/testsuite/g77.f-torture/compile/980424-0.f
@@ -0,0 +1,6 @@
+C     crashes in subst_stack_regs_pat on x86-linux, in the "abort();"
+C     within the switch statement.
+      SUBROUTINE C(A)
+      COMPLEX A
+      WRITE(*,*) A.NE.CMPLX(0.0D0)
+      END
-- 
2.30.2