summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/g77/980310-6.f
blob: b4b2f1d1e760dd55a68807d51866e15ed55a7acb (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
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 '*'.