URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [g77/] [980310-6.f] - Blame information for rev 437

Go to most recent revision | Details | Compare with Previous | View Log


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

Line No.	Rev	Author	Line
1	302	jeremybenn	`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

Browse

Tools

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [g77/] [980310-6.f] - Blame information for rev 437