diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/g77/980616-0.f')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/g77/980616-0.f | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/g77/980616-0.f b/gcc/testsuite/gfortran.dg/g77/980616-0.f new file mode 100644 index 000000000..069b611eb --- /dev/null +++ b/gcc/testsuite/gfortran.dg/g77/980616-0.f @@ -0,0 +1,10 @@ +c { dg-do compile } +* Fixed by 1998-07-11 equiv.c change. +* ../../gcc/f/equiv.c:666: failed assertion `ffebld_op (subscript) == FFEBLD_opCONTER' + +* Date: Mon, 15 Jun 1998 21:54:32 -0500 +* From: Ian A Watson <WATSON_IAN_A@lilly.com> +* Subject: Mangler Crash + EQUIVALENCE(I,glerf(P)) ! { dg-error "is a variable" "is a variable" } + COMMON /foo/ glerf(3) +c { dg-error "end of file" "end of file" { target *-*-* } 0 } |