e1834b5a6f
* g77.f-torture/compile/980310-1.f, g77.f-torture/compile/980310-2.f g77.f-torture/compile/980310-3.f, g77.f-torture/compile/980310-4.f g77.f-torture/compile/980310-6.f, g77.f-torture/compile/980310-7.f g77.f-torture/compile/980310-8.f: New tests from egcs-bugs archives. * g77.f-torture/execute/980310-5.f: New test from egcs-bugs archives. From-SVN: r18466
40 lines
1.1 KiB
Fortran
40 lines
1.1 KiB
Fortran
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 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
|
|
|
|
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
|