New test.

From-SVN: r19905
1998-05-20 09:28:28 +00:00 · 1998-05-20 09:28:28 +00:00 · 83539a5253
commit 83539a5253
parent 961ec1a55f
1 changed files with 4 additions and 0 deletions
--- a/gcc/testsuite/g77.f-torture/execute/980520-1.f
+++ 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