diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/g77/980615-0.f')
-rw-r--r-- | gcc/testsuite/gfortran.dg/g77/980615-0.f | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/g77/980615-0.f b/gcc/testsuite/gfortran.dg/g77/980615-0.f new file mode 100644 index 000000000..5107f4f79 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/g77/980615-0.f @@ -0,0 +1,12 @@ +c { dg-do compile } +* Fixed by JCB 1998-07-25 change to stc.c. + +* Date: Thu, 11 Jun 1998 22:35:20 -0500 +* From: Ian A Watson <WATSON_IAN_A@lilly.com> +* Subject: crash +* + CaLL foo(W) + END + SUBROUTINE foo(W) + yy(I)=A(I)Q(X) ! { dg-error "Unclassifiable statement" "" } +c { dg-error "end of file" "end of file" { target *-*-* } 0 } |