diff --git a/R/expect_identical_linter.R b/R/expect_identical_linter.R
index 59d674405..8814b4348 100644
--- a/R/expect_identical_linter.R
+++ b/R/expect_identical_linter.R
@@ -71,6 +71,7 @@ expect_identical_linter <- function() {
       or following-sibling::expr[NUM_CONST[contains(text(), '.')]]
       or following-sibling::expr[
         OP-MINUS
+        and count(expr) = 1
         and expr[NUM_CONST[contains(text(), '.')]]
       ]
       or following-sibling::expr[SYMBOL[text() = '...']]