Merge pull request #1883 from karasevb/fix_mca_spml_call

artpol84 · web-flow · commit 9807a6d58543 · 2016-07-22T16:59:11.000+06:00
oshmem/fortran: fix warning mesages
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)));
 }
 

Original file line number	Diff line number	Diff line change
`@@ -1,7 +1,6 @@`
`1`	`1`	`/*`
`2`		`- * Copyright (c) 2013 Mellanox Technologies, Inc.`
`3`		`- * All rights reserved.`
`4`		`- * Copyright (c) 2013 Cisco Systems, Inc. All rights reserved.`
	`2`	`+ * Copyright (c) 2013-2016 Mellanox Technologies, Inc. All rights reserved.`
	`3`	`+ * Copyright (c) 2013 Cisco Systems, Inc. All rights reserved.`
`5`	`4`	`* $COPYRIGHT$`
`6`	`5`	`*`
`7`	`6`	`* Additional copyrights may follow`
`@@ -34,8 +33,8 @@ SHMEM_GENERATE_FORTRAN_BINDINGS_SUB (void,`
`34`	`33`	`void shmem_put_f(FORTRAN_POINTER_T target, FORTRAN_POINTER_T source, MPI_Fint length, MPI_Fint pe)`
`35`	`34`	`{`
`36`	`35`	`MCA_SPML_CALL(put(FPTR_2_VOID_PTR(target),`
	`36`	`+ OMPI_FINT_2_INT(length) 8,`
`37`	`37`	`FPTR_2_VOID_PTR(source),`
`38`		`- OMPI_FINT_2_INT(*length),`
`39`	`38`	`OMPI_FINT_2_INT(*pe)));`
`40`	`39`	`}`
`41`	`40`