oshmem/fortran: fix warning mesages && fix size

karasevb · karasevb · commit 1dab61d3b42a · 2016-07-22T14:35:00.000+06:00
diff --git a/oshmem/shmem/fortran/shmem_put_f.c b/oshmem/shmem/fortran/shmem_put_f.c
@@ -34,8 +34,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
`@@ -34,8 +34,8 @@ SHMEM_GENERATE_FORTRAN_BINDINGS_SUB (void,`
`34`	`34`	`void shmem_put_f(FORTRAN_POINTER_T target, FORTRAN_POINTER_T source, MPI_Fint length, MPI_Fint pe)`
`35`	`35`	`{`
`36`	`36`	`MCA_SPML_CALL(put(FPTR_2_VOID_PTR(target),`
	`37`	`+ OMPI_FINT_2_INT(length) 8,`
`37`	`38`	`FPTR_2_VOID_PTR(source),`
`38`		`- OMPI_FINT_2_INT(*length),`
`39`	`39`	`OMPI_FINT_2_INT(*pe)));`
`40`	`40`	`}`
`41`	`41`