New test.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@19905 138bc75d-0d04-0410-961f-82ee72b054a4

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