23 lines
601 B
Fortran
23 lines
601 B
Fortran
c { dg-do compile }
|
|
C From: Norbert Conrad <Norbert.Conrad@hrz.uni-giessen.de>
|
|
C Message-Id: <199711131008.LAA12272@marvin.hrz.uni-giessen.de>
|
|
C Subject: 971105 g77 bug
|
|
C To: egcs-bugs@cygnus.com
|
|
C Date: Thu, 13 Nov 1997 11:08:19 +0100 (CET)
|
|
|
|
C I found a bug in g77 in snapshot 971105
|
|
|
|
subroutine ai (a)
|
|
dimension a(-1:*)
|
|
return
|
|
end
|
|
C ai.f: In subroutine `ai':
|
|
C ai.f:1:
|
|
C subroutine ai (a)
|
|
C ^
|
|
C Array `a' at (^) is too large to handle
|
|
C
|
|
C This happens whenever the lower index boundary is negative and the upper index
|
|
C boundary is '*'.
|
|
|