From a235cdd775e6ea16f7ca328da0e0d682646f7a1a Mon Sep 17 00:00:00 2001
From: Dave Love <fx@gcc.gnu.org>
Date: Mon, 27 Apr 1998 10:06:28 +0000
Subject: [PATCH] New test.

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

diff --git a/gcc/testsuite/g77.f-torture/compile/980427-0.f b/gcc/testsuite/g77.f-torture/compile/980427-0.f
new file mode 100644
index 0000000..8b0ed6f
--- /dev/null
+++ b/gcc/testsuite/g77.f-torture/compile/980427-0.f
@@ -0,0 +1,7 @@
+c ../../egcs/gcc/f/com.c:938: failed assertion `TREE_CODE (TREE_TYPE (e)) == REAL_TYPE'
+      external b
+      call y(b)
+      end
+      subroutine x
+      a = b()
+      end
-- 
2.7.4