New test.
authorDave Love <fx@gcc.gnu.org>
Mon, 27 Apr 1998 10:06:28 +0000 (10:06 +0000)
committerDave Love <fx@gcc.gnu.org>
Mon, 27 Apr 1998 10:06:28 +0000 (10:06 +0000)
From-SVN: r19426

gcc/testsuite/g77.f-torture/compile/980427-0.f [new file with mode: 0644]

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 (file)
index 0000000..8b0ed6f
--- /dev/null
@@ -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