1 files changed, 1 insertions, 1 deletions
diff --git a/evaluation.adb b/evaluation.adb
index e5d4560..4fd522c 100644
--- a/evaluation.adb
+++ b/evaluation.adb
@@ -679,7 +679,7 @@ package body Evaluation is
            | Iir_Predefined_Array_Ror =>
             Cnt := Cnt mod Len;
             if not Dir_Left then
-               Cnt := Len - Cnt;
+               Cnt := (Len - Cnt) mod Len;
             end if;
       end case;