Subversion Repositories openrisc

c { dg-do compile }

C From: "David C. Doherty" <doherty@networkcs.com>

C Message-Id: <199711171846.MAA27947@uh.msc.edu>

C Subject: g77: auto arrays + goto = no go

C To: egcs-bugs@cygnus.com

C Date: Mon, 17 Nov 1997 12:46:27 -0600 (CST)

C I sent the following to fortran@gnu.ai.mit.edu, and Dave Love

C replied that he was able to reproduce it on rs6000-aix; not on

C others. He suggested that I send it to egcs-bugs. 

C Hi - I've observed the following behavior regarding 

C automatic arrays and gotos.  Seems similar to what I found

C in the docs about computed gotos (but not exactly the same).

C 

C I suspect from the nature of the error msg that it's in the GBE.

C 

C I'm using egcs-971105, under linux-ppc.

C 

C I also observed the same in g77-0.5.19 (and gcc 2.7.2?).

C 

C I'd appreciate any advice on this.  thanks for the great work.

C --

C >cat testg77.f

      subroutine testg77(n, a)

c

      implicit none

c

      integer n

      real a(n)

      real b(n)

      integer i

c

      do i = 1, 10

        if (i .gt. 4) goto 100

        write(0, '(i2)')i

      enddo

c

      goto 200

100   continue

200   continue

c

      return

      end

C >g77 -c testg77.f

C testg77.f: In subroutine `testg77':

C testg77.f:19: label `200' used before containing binding contour

C testg77.f:18: label `100' used before containing binding contour

C --

C If I comment out the b(n) line or replace it with, e.g., b(10),

C it compiles fine.