Subversion Repositories openrisc

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 '*'.