incorrect result (41/10-1/10)%%1 (PR#13863)

Full_Name: jan hattendorf
Version: 2.9.0
OS: XP
Submission from: (NULL) (213.3.108.185)


I get an incorrect result for

(41/10-1/10)%%1

[1] 1

The error did not occur with other numbers than 41 (1, 11, 21, 31, 51, ...)


test <- rep(NA, 1000)
for(i in 1:1000){
  test[i] <- i/10-1/10
}
test[test%%1==0]