aboutsummaryrefslogtreecommitdiff
path: root/gcc
diff options
context:
space:
mode:
authorDave Love <fx@gcc.gnu.org>1998-04-27 10:06:28 +0000
committerDave Love <fx@gcc.gnu.org>1998-04-27 10:06:28 +0000
commita235cdd775e6ea16f7ca328da0e0d682646f7a1a (patch)
tree2c2eb54e28a858e2072862fa230d3e09ba290763 /gcc
parent8594f2102c3fbc848da93de04251c2de3f25c8f3 (diff)
downloadgcc-a235cdd775e6ea16f7ca328da0e0d682646f7a1a.zip
gcc-a235cdd775e6ea16f7ca328da0e0d682646f7a1a.tar.gz
gcc-a235cdd775e6ea16f7ca328da0e0d682646f7a1a.tar.bz2
New test.
From-SVN: r19426
Diffstat (limited to 'gcc')
-rw-r--r--gcc/testsuite/g77.f-torture/compile/980427-0.f7
1 files changed, 7 insertions, 0 deletions
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