Optimization bug in current snapshot

[Toon Moene]

Martin Kahlert wrote:

> this shows an optimization error with g77 -O on i686-pc-linux-gnu
> (gcc-20001106):
> 
>       REAL*8 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
>       STOP
> 
>  10   WRITE(*,*) 'No Error: BK = ', BK
>       END

I've simplified this somewhat and added it to the g77 testsuite.  AFAICS
it only fails on i?86.

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