From 8e81b45e82f0026de57ee9c0a695147db11861e7 Mon Sep 17 00:00:00 2001
From: degomme <augustin.degomme@unibas.ch>
Date: Wed, 27 Apr 2016 17:31:09 +0200
Subject: [PATCH] Send the right size here.

---
 src/smpi/smpi_f77.cpp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/smpi/smpi_f77.cpp b/src/smpi/smpi_f77.cpp
index 21e10ec63a..03d92d8c93 100644
--- a/src/smpi/smpi_f77.cpp
+++ b/src/smpi/smpi_f77.cpp
@@ -6,7 +6,7 @@
 
 #include <limits.h>
 #include <stdio.h>
-
+#include "smpi_mpi_dt_private.h"
 #include "private.h"
 #include "xbt.h"
 
@@ -96,7 +96,7 @@ static void smpi_init_fortran_types(){
      smpi_type_c2f(MPI_UINT64_T);//MPI_LOGICAL8
      smpi_type_c2f(MPI_2FLOAT);//MPI_2REAL
      smpi_type_c2f(MPI_2DOUBLE);//MPI_2DOUBLE_PRECISION
-     smpi_type_c2f(MPI_UINT64_T);//MPI_AINT
+     smpi_type_c2f(MPI_PTR);//MPI_AINT
      smpi_type_c2f(MPI_UINT64_T);//MPI_OFFSET
      smpi_type_c2f(MPI_UINT64_T);//MPI_COUNT
      smpi_type_c2f(MPI_DATATYPE_NULL);//MPI_REAL16
-- 
2.20.1