From: Dave Love <fx@gcc.gnu.org>
Date: Wed, 20 May 1998 09:28:28 +0000 (+0000)
Subject: New test.
X-Git-Tag: prereleases/egcs-1.1-prerelease~1182
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=83539a525350ec57aeb39025c9382d5e34d6ea36;p=thirdparty%2Fgcc.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 000000000000..d57791ab9b17
--- /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