diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/g77/980310-8.f')
-rw-r--r-- | gcc/testsuite/gfortran.dg/g77/980310-8.f | 27 |
1 files changed, 14 insertions, 13 deletions
diff --git a/gcc/testsuite/gfortran.dg/g77/980310-8.f b/gcc/testsuite/gfortran.dg/g77/980310-8.f index bafb470d340..c20f2d72082 100644 --- a/gcc/testsuite/gfortran.dg/g77/980310-8.f +++ b/gcc/testsuite/gfortran.dg/g77/980310-8.f @@ -4,19 +4,20 @@ C Subject: egcs-g77 and array indexing C Reply-To: etseidl@jutland.ca.sandia.gov C Date: Wed, 26 Nov 1997 10:38:27 -0800 C From: Edward Seidl <etseidl@jutland.ca.sandia.gov> -C -C I have some horrible spaghetti code I'm trying compile with egcs-g77, -C but it's puking on code like the example below. I have no idea if it's -C legal fortran or not, and I'm in no position to change it. All I do know -C is it compiles with a number of other compilers, including f2c and -C g77-0.5.19.1/gcc-2.7.2.1. When I try to compile with egcs-2.90.18 971122 -C I get the following (on both i686-pc-linux-gnu and alphaev56-unknown-linux-gnu): -C -C foo.f: In subroutine `foobar': -C foo.f:11: -C subroutine foobar(norb,nnorb) -C ^ -C Array `norb' at (^) is too large to handle +C +C I have some horrible spaghetti code I'm trying compile with egcs-g77, +C but it's puking on code like the example below. I have no idea if it's +C legal fortran or not, and I'm in no position to change it. All I do know +C is it compiles with a number of other compilers, including f2c and +C g77-0.5.19.1/gcc-2.7.2.1. When I try to compile with egcs-2.90.18 971122 +C I get the following (on both i686-pc-linux-gnu and +C alphaev56-unknown-linux-gnu): +C +Cfoo.f: In subroutine `foobar': +Cfoo.f:11: +C subroutine foobar(norb,nnorb) +C ^ +CArray `norb' at (^) is too large to handle program foo implicit integer(A-Z) |