From: Dave Love <fx@gcc.gnu.org>
Date: Wed, 20 May 1998 09:28:28 +0000 (+0000)
Subject: New test.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=83539a525350ec57aeb39025c9382d5e34d6ea36;p=gcc.git

New test.

From-SVN: r19905
---

diff --git a/gcc/testsuite/g77.f-torture/execute/980520-1.f b/gcc/testsuite/g77.f-torture/execute/980520-1.f
new file mode 100644
index 00000000000..d57791ab9b1
--- /dev/null
+++ b/gcc/testsuite/g77.f-torture/execute/980520-1.f
@@ -0,0 +1,4 @@
+c     Produced a link error through not eliminating the unused statement
+c     function.  It's in `execute' since it needs to link.
+      values(i,j) = val((i-1)*n+j)
+      end