From: Dave Love <fx@gcc.gnu.org>
Date: Mon, 27 Apr 1998 10:06:28 +0000 (+0000)
Subject: New test.
X-Git-Tag: prereleases/egcs-1.1-prerelease~1539
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=a235cdd775e6ea16f7ca328da0e0d682646f7a1a;p=thirdparty%2Fgcc.git

New test.

From-SVN: r19426
---

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 000000000000..8b0ed6f7c593
--- /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