Fix variable initialization

rocher · Mar 22, 2023 · 1830569 · 1830569
1 parent 4698943
commit 1830569
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/euler_package.adb b/src/euler_package.adb
@@ -85,7 +85,7 @@ package body Euler_Package is
    ------------------
 
    function Collatz_Next (Number : Int_Type) return Int_Type is
-      Next : Int_Type;
+      Next : Int_Type := Number;
    begin
       if Number mod 2 = 0 then
          Next := @ / 2;