gcc/testsuite/gfortran.dg/g77/980310-6.f

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