| SUBROUTINE XXX (IL, IU) | |
| implicit none | |
| integer, INTENT(IN) :: IL, IU | |
| integer :: NXX (14) = (/ 0, 1, 2, 3, 4, 5, 6, 7, 9, 10, 11, 12, 13, 14 /) | |
| integer :: ivvv, ia, ja, iaii | |
| logical :: qop | |
| QOP=.FALSE. | |
| DO IA=IL,IU | |
| JA=NXX(IA) | |
| IF (.NOT. QOP .and. JA.GT.0) THEN | |
| IAII=IA | |
| QOP=.TRUE. | |
| ENDIF | |
| IF (QOP) THEN | |
| ivvv=IA-IAII+1 ! mis-compiled | |
| ENDIF | |
| ENDDO | |
| IF (ivvv.NE.2) THEN | |
| STOP 1 | |
| ENDIF | |
| END subroutine | |
| program p | |
| implicit none | |
| CALL XXX (1, 3) | |
| end |