fix(collectives): remove unused parameter

Author: Damian Rouson

tests/collective_subroutines_test.F90

@@ -81,7 +81,6 @@ function check_co_sum_without_result_image() result(result_)
         type(Result_t) :: result_
 
         integer i, j
-        integer, parameter :: result_image=2
 
         associate(me => this_image())
           i = me