Oldest QB45 bug ever known

[eoredson]

This error reported in QB45 has been there forever:

Code: (Select All)

Rem oldest QB45 bug ever known.
x$ = "9"
x = Int(Val(x$))
Print x ' returns 8
x = Int(Val(x$) + .5)
Print x ' returns 9
Rem no bug here:
x = CSng(Val(x$))
Print x ' returns 9
x = CInt(Val(x$))
Print x ' returns 9
x = Int(Val("&H" + x$))
Print x ' returns 9
End

However QB64 does not duplicate this error.

Am I incorrect in assuming this bug has been squashed?

Erik.