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