gcc/testsuite/gfortran.dg/g77/980615-0.f

   1 c { dg-do compile }
   2 * Fixed by JCB 1998-07-25 change to stc.c.
   3
   4 * Date: Thu, 11 Jun 1998 22:35:20 -0500
   5 * From: Ian A Watson <WATSON_IAN_A@lilly.com>
   6 * Subject: crash
   7 *
   8       CaLL foo(W)
   9       END
  10       SUBROUTINE foo(W)
  11       yy(I)=A(I)Q(X) ! { dg-error "Unclassifiable statement" "" }
  12 c { dg-error "end of file" "end of file" { target *-*-* } 0 }