fix(bin_s): constructor

Author: rouson

src/sourcery/bin_s.f90

@@ -11,11 +11,11 @@
       associate( remainder => mod(num_items, num_bins), items_per_bin => num_items/num_bins)
 
         if (bin_number <= remainder) then
-          bin%first_ = (bin_number-1)*(items_per_bin+1) + 1
-          bin%last_ = bin%first_ + items_per_bin
+          bin%first_ = 1 + (bin_number-1)*(items_per_bin+1)
+          bin%last_  = bin_number*(items_per_bin+1)
         else
-          bin%first_ = remainder*(items_per_bin+1) + (bin_number-remainder)*items_per_bin + 1
-          bin%last_ = bin%first_ + items_per_bin - 1
+          bin%first_ = 1 + (remainder-1)*(items_per_bin+1) + 1 + (bin_number-remainder)*items_per_bin
+          bin%last_ = remainder*(items_per_bin+1) + (bin_number-remainder)*items_per_bin
         end if
 
       end associate

test/bin_test.f90

@@ -65,7 +65,7 @@ function verify_all_items_partitioned() result(test_passes)
     logical test_passes
 
     type(bin_t), allocatable :: bins(:)
-    integer, parameter :: n_items=12, n_bins=5
+    integer, parameter :: n_items=11, n_bins=6
     integer b
 
     bins = [( bin_t(num_items=n_items, num_bins=n_bins, bin_number=b), b = 1,n_bins )]