gcc/testsuite/g77.f-torture/noncompile/980615-0.f

   1 * Fixed by JCB 1998-07-25 change to stc.c.
   2
   3 * Date: Thu, 11 Jun 1998 22:35:20 -0500
   4 * From: Ian A Watson <WATSON_IAN_A@lilly.com>
   5 * Subject: crash
   6 *
   7       CaLL foo(W)
   8       END
   9       SUBROUTINE foo(W)
  10       yy(I)=A(I)Q(X)