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

   1 c { dg-do compile }
   2 * Fixed by 1998-07-11 equiv.c change.
   3 * ../../gcc/f/equiv.c:666: failed assertion `ffebld_op (subscript) == FFEBLD_opCONTER'
   4
   5 * Date: Mon, 15 Jun 1998 21:54:32 -0500
   6 * From: Ian A Watson <WATSON_IAN_A@lilly.com>
   7 * Subject: Mangler Crash
   8       EQUIVALENCE(I,glerf(P)) ! { dg-error "is a variable"  "is a variable" }
   9       COMMON /foo/ glerf(3)
  10 c { dg-error "end of file" "end of file" { target *-*-* } 0 }