Common Bug 11

	SUBROUTINE outp
$$IMPLICIT
$$INCLUDE 'C$INC:BCS.INC'
$$INCLUDE 'YBOS$LIBRARY:ERRCOD.INC'
	INTEGER ind, index	! bank and data index of TAUS
	INTEGER xind, xindex	! bank and data index of MUON
	INTEGER blocat	! YBOS named bank finder
	INTEGER status	! error return status
C.................................
	status = blocat(iw, 'TAUS', 1, ind, index)
	IF(status .NE. yesucc) RETURN
	iw(index+3) = 5
	status = blocat(iw, 'MUON', 1, xind, xindex)
	IF(status .NE. yesucc) RETURN
	iw(xindex+3) = 7

	CALL ctcdel
	CALL svxdel
	status = blocat(iw, 'TAUS', 1, ind, index)
	status = blocat(iw, 'MUON', 1, xind, xindex)


	WRITE(*,1000)iw(index+3)*iw(xindex+3)
1000	FORMAT(' # hits in tau times muon = ',I7)

	RETURN
	END

This dies with an integer overflow. Can you find the bug?

BACK to YBOS ,