oshmem/fortran: fix warning mesages && fix size

artpol84 · Jul 22, 2016 · 49b6709 · 49b6709
1 parent bbc6d4b
commit 49b6709
Showing 1 changed file with 3 additions and 4 deletions.
diff --git a/oshmem/shmem/fortran/shmem_put_f.c b/oshmem/shmem/fortran/shmem_put_f.c
@@ -1,7 +1,6 @@
 /*
- * Copyright (c) 2013      Mellanox Technologies, Inc.
- *                         All rights reserved.
- * Copyright (c) 2013 Cisco Systems, Inc.  All rights reserved.
+ * Copyright (c) 2013-2016 Mellanox Technologies, Inc. All rights reserved.
+ * Copyright (c) 2013      Cisco Systems, Inc.  All rights reserved.
  * $COPYRIGHT$
  *
  * Additional copyrights may follow
@@ -34,8 +33,8 @@ SHMEM_GENERATE_FORTRAN_BINDINGS_SUB (void,
 void shmem_put_f(FORTRAN_POINTER_T target, FORTRAN_POINTER_T source, MPI_Fint *length, MPI_Fint *pe)
 {
     MCA_SPML_CALL(put(FPTR_2_VOID_PTR(target),
+        OMPI_FINT_2_INT(*length) * 8,
         FPTR_2_VOID_PTR(source),
-        OMPI_FINT_2_INT(*length),
         OMPI_FINT_2_INT(*pe)));
 }