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 (file)
index 0000000..d57791a
--- /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