1 C From: "David C. Doherty" <doherty@networkcs.com>
2 C Message-Id: <199711171846.MAA27947@uh.msc.edu>
3 C Subject: g77: auto arrays + goto = no go
4 C To: egcs-bugs@cygnus.com
5 C Date: Mon, 17 Nov 1997 12:46:27 -0600 (CST)
7 C I sent the following to fortran@gnu.ai.mit.edu, and Dave Love
8 C replied that he was able to reproduce it on rs6000-aix; not on
9 C others. He suggested that I send it to egcs-bugs.
11 C Hi - I've observed the following behavior regarding
12 C automatic arrays and gotos. Seems similar to what I found
13 C in the docs about computed gotos (but not exactly the same).
15 C I suspect from the nature of the error msg that it's in the GBE.
17 C I'm using egcs-971105, under linux-ppc.
19 C I also observed the same in g77-0.5.19 (and gcc 2.7.2?).
21 C I'd appreciate any advice on this. thanks for the great work.
24 subroutine testg77
(n
, a
)
34 if (i
.gt
. 4) goto 100
45 C testg77.f: In subroutine `testg77':
46 C testg77.f:19: label `200' used before containing binding contour
47 C testg77.f:18: label `100' used before containing binding contour
49 C If I comment out the b(n) line or replace it with, e.g., b(10),