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