URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [g77/] [980310-7.f] - Rev 312
Go to most recent revision | Compare with Previous | Blame | View Log
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.
Go to most recent revision | Compare with Previous | Blame | View Log