X-Git-Url: https://oss.titaniummirror.com/gitweb?a=blobdiff_plain;f=gcc%2Ftestsuite%2Fg77.f-torture%2Fcompile%2F980310-7.f;fp=gcc%2Ftestsuite%2Fg77.f-torture%2Fcompile%2F980310-7.f;h=0000000000000000000000000000000000000000;hb=6fed43773c9b0ce596dca5686f37ac3fc0fa11c0;hp=9cfbaed692a9897c875f4c27731705d1643e7a81;hpb=27b11d56b743098deb193d510b337ba22dc52e5c;p=msp430-gcc.git diff --git a/gcc/testsuite/g77.f-torture/compile/980310-7.f b/gcc/testsuite/g77.f-torture/compile/980310-7.f deleted file mode 100644 index 9cfbaed6..00000000 --- a/gcc/testsuite/g77.f-torture/compile/980310-7.f +++ /dev/null @@ -1,50 +0,0 @@ -C From: "David C. Doherty" -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.