fortran/893: Preliminary loop exit compiled wrongly

[Richard Henderson]

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.


r~