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 (file)
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