Another ICE with IVF XE 15.0.0.054

[OP1]

This code is wrong for all kinds of reasons - but it triggers an ICE with the latest (BETA) compiler:

PROGRAM MAIN

IMPLICIT NONE

INTEGER :: I
REAL :: A,B

DO I=1,2

    IF (I==1)
        ASSOCIATE (U=>A)
    ELSE
        ASSOCIATE (U=>B)
    END IF
    END ASSOCIATE

END DO

END PROGRAM MAIN

[Steven_L_Intel1]

Thanks - the ASSOCIATE isn't needed to see this bug. Escalated as issue DPD200256913.

[Steven_L_Intel1]

Fixed for the final 15.0.