Removed warnings during compilation and fixed co_reduce test

Signed-off-by: Alessandro Fanfarillo <[email protected]>

Author: Alessandro Fanfarillo

src/mpi/mpi_caf.c

@@ -2041,25 +2041,25 @@ PREFIX (co_reduce) (gfc_descriptor_t *a, void *(*opr) (void *, void *), int opr_
   MPI_Op op;
   if(GFC_DESCRIPTOR_TYPE(a) == BT_INTEGER)
     {
-      foo_int32_t = opr;
+      foo_int32_t = (typeof(foo_int32_t))opr;
       MPI_Op_create(redux_int32, 1, &op);
     }
   else if(GFC_DESCRIPTOR_TYPE(a) == BT_REAL)
     {
       if(GFC_DESCRIPTOR_SIZE(a) == sizeof(float))
   	{
-  	  foo_float = opr;
+  	  foo_float = (typeof(foo_float))opr;
   	  MPI_Op_create(redux_real32, 1, &op);
   	}
       else
   	{
-  	  foo_double = opr;
+  	  foo_double = (typeof(foo_double))opr;
   	  MPI_Op_create(redux_real64, 1, &op);
   	}
     }
   else if(GFC_DESCRIPTOR_TYPE(a) == BT_LOGICAL)
     {
-      foo_int32_t = opr;
+      foo_int32_t = (typeof(foo_int32_t))opr;
       MPI_Op_create(redux_int32, 1, &op);  
     }
   else

src/tests/unit/collectives/co_reduce.F90

@@ -46,7 +46,7 @@ module co_intrinsics_module
 contains
 
   subroutine co_all_logical(a)
-    logical, intent(inout) :: a
+    logical, intent(inout) :: a(:)
     call co_reduce(a,and)
   contains
     pure function and(lhs,rhs) result(lhs_and_rhs) bind(C,name="and")
@@ -98,10 +98,10 @@ program main
 
   ! Verify that every image has a "true" variable with the value .true.
   verify_co_reduce_logical: block 
-    logical :: true=.true.
+    logical,dimension(10) :: true=.true.
     sync all
     call co_all(true)
-    if (true) then
+    if (all(true .eqv. .true.)) then
       logical_passes=.true.
     else
       write(error_unit,"(2(a,i2))") "co_reduce fails for logical argument with result (",true,") on image",this_image()