2003-12-26 Guilhem Lavaux <guilhem@kaffe.org>
[official-gcc.git] / gcc / testsuite / g77.f-torture / noncompile / 980615-0.f
blob316969f6aa818902512482913b6e158d4e416e91
1 * Fixed by JCB 1998-07-25 change to stc.c.
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)