From 32461229e13b3f639761a4479de3825e556c5c83 Mon Sep 17 00:00:00 2001 From: Augustin Degomme Date: Mon, 16 Jun 2014 11:12:44 +0200 Subject: [PATCH] change symbol name to match one declared in mpif.h --- src/smpi/smpi_f77.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/smpi/smpi_f77.c b/src/smpi/smpi_f77.c index 1d8a6e493c..b83160f086 100644 --- a/src/smpi/smpi_f77.c +++ b/src/smpi/smpi_f77.c @@ -32,13 +32,13 @@ typedef unsigned long int uinteger; integer _MPI_BOTTOM; integer _MPI_STATUS_IGNORE; integer _MPI_STATUSES_IGNORE; - } smpi_f90; + } smpi_; /* Convert between Fortran and C */ #define FORT_ADDR(addr, val) \ - (((void *)(addr) == (void*) &(smpi_f90._ ## val)) \ + (((void *)(addr) == (void*) &(smpi_._ ## val)) \ ? (val) : (void *)(addr)) #define FORT_BOTTOM(addr) FORT_ADDR(addr, MPI_BOTTOM) #define FORT_IN_PLACE(addr) FORT_ADDR(addr, MPI_IN_PLACE) -- 2.20.1