OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [g77/] [980310-8.f] - Rev 694

Compare with Previous | Blame | View Log

c { dg-do compile }
C To: egcs-bugs@cygnus.com
C Subject: egcs-g77 and array indexing
C Reply-To: etseidl@jutland.ca.sandia.gov
C Date: Wed, 26 Nov 1997 10:38:27 -0800
C From: Edward Seidl <etseidl@jutland.ca.sandia.gov>
C
C I have some horrible spaghetti code I'm trying compile with egcs-g77,
C but it's puking on code like the example below.  I have no idea if it's
C legal fortran or not, and I'm in no position to change it.  All I do know
C is it compiles with a number of other compilers, including f2c and
C g77-0.5.19.1/gcc-2.7.2.1.  When I try to compile with egcs-2.90.18 971122
C I get the following (on both i686-pc-linux-gnu and
C alphaev56-unknown-linux-gnu):
C
Cfoo.f: In subroutine `foobar':
Cfoo.f:11: 
C         subroutine foobar(norb,nnorb)
C                           ^
CArray `norb' at (^) is too large to handle
 
      program foo
      implicit integer(A-Z)
      dimension norb(6)
      nnorb=6
 
      call foobar(norb,nnorb)
 
      stop
      end
 
      subroutine foobar(norb,nnorb)
      implicit integer(A-Z)
      dimension norb(-1:*)
 
      do 10 i=-1,nnorb-2
        norb(i) = i+999
  10  continue
 
      return
      end
 

Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.