gcc/testsuite/g77.f-torture/compile/980310-6.f

   1 C From: Norbert Conrad <Norbert.Conrad@hrz.uni-giessen.de>
   2 C Message-Id: <199711131008.LAA12272@marvin.hrz.uni-giessen.de>
   3 C Subject: 971105  g77 bug
   4 C To: egcs-bugs@cygnus.com
   5 C Date: Thu, 13 Nov 1997 11:08:19 +0100 (CET)
   6
   7 C I found a bug in g77 in snapshot 971105
   8
   9       subroutine ai (a)
  10       dimension a(-1:*)
  11       return
  12       end
  13 C ai.f: In subroutine `ai':
  14 C ai.f:1:
  15 C          subroutine ai (a)
  16 C                         ^
  17 C Array `a' at (^) is too large to handle
  18 C
  19 C This happens whenever the lower index boundary is negative and the upper index
  20 C boundary is '*'.
  21