1SUBROUTINE XXX (IL, IU)
2  implicit none
3  integer, INTENT(IN) :: IL, IU
4
5  integer :: NXX (14) = (/ 0, 1, 2, 3, 4, 5, 6, 7, 9, 10, 11, 12, 13, 14 /)
6  integer :: ivvv, ia, ja, iaii
7  logical :: qop
8
9  QOP=.FALSE.
10
11  DO IA=IL,IU
12    JA=NXX(IA)
13    IF (.NOT. QOP .and. JA.GT.0) THEN
14      IAII=IA
15      QOP=.TRUE.
16    ENDIF
17
18    IF (QOP) THEN
19      ivvv=IA-IAII+1       ! mis-compiled
20    ENDIF
21  ENDDO
22
23  IF (ivvv.NE.2) THEN
24    STOP 1
25  ENDIF
26END subroutine
27
28program p
29  implicit none
30  CALL XXX (1, 3)
31end
32