URL
https://opencores.org/ocsvn/scarts/scarts/trunk
Subversion Repositories scarts
[/] [scarts/] [trunk/] [toolchain/] [scarts-gcc/] [gcc-4.1.1/] [gcc/] [testsuite/] [gfortran.dg/] [g77/] [980310-8.f] - Rev 12
Compare with Previous | Blame | View Log
c { dg-do compile } C To: egcs-bugs@cygnus.com 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 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) dimension norb(6) nnorb=6 call foobar(norb,nnorb) stop end subroutine foobar(norb,nnorb) implicit integer(A-Z) dimension norb(-1:*) do 10 i=-1,nnorb-2 norb(i) = i+999 10 continue return end