gcc/testsuite/gfortran.dg/g77/980520-1.f

   1 c { dg-do run }
   2 c { dg-options "-std=legacy" }
   3 c
   4 c     Produced a link error through not eliminating the unused statement
   5 c     function after 1998-05-15 change to gcc/toplev.c.  It's in
   6 c     `execute' since it needs to link.
   7 c     Fixed by 1998-05-23 change to f/com.c.
   8       values(i,j) = val((i-1)*n+j)
   9       end