fortran/893: Preliminary loop exit compiled wrongly

[Toon Moene]

Richard Henderson wrote:

> On Sun, Nov 26, 2000 at 04:30:48PM -0000, toon@moene.indiv.nluug.nl wrote:
> > The following code:

> >       DOUBLE PRECISION VALUE(2), TOLD, BK
> >       DATA VALUE /0D0, 1D0/
> >       DATA TOLD /0D0/
> >       DO I=1, 2
> >          BK = VALUE(I)
> >          IF(BK .GT. TOLD) GOTO 10
> >       ENDDO
> >       WRITE(*,*)'Error: BK = ', BK
> >       CALL ABORT
> >  10   CONTINUE
> >       WRITE(*,*)'No Error: BK = ', BK
> >       END

> > which is g77 (execute) testsuite item 20001111.f compiles
> > wrongly on i?86-linux with any optimisation on.

> See if http://gcc.gnu.org/ml/gcc-patches/2000-11/msg01594.html
> helps.  The general form of the bug appears to be identical.

Yep, that did it - I couldn't test it yesterday, because my bootstrap
bombed, but todays test result archives bear out that it has been
solved.  I'll close the bug report and remove the XFAIL on i?86-*-*
indication.

Thanks for the hint.

-- 
Toon Moene - mailto:toon@moene.indiv.nluug.nl - phoneto: +31 346 214290
Saturnushof 14, 3738 XG  Maartensdijk, The Netherlands
GNU Fortran 77: http://gcc.gnu.org/onlinedocs/g77_news.html
GNU Fortran 95: http://g95.sourceforge.net/ (under construction)