1 /*
2  * Copyright (C) by Argonne National Laboratory
3  *     See COPYRIGHT in top-level directory
4  *
5  * This file is automatically generated by buildiface
6  * DO NOT EDIT
7  */
8 
9 #include "cdesc.h"
10 
MPIR_Free_mem_cdesc(CFI_cdesc_t * x0)11 int MPIR_Free_mem_cdesc(CFI_cdesc_t* x0)
12 {
13     int err = MPI_SUCCESS;
14     void *buf0 = x0->base_addr;
15 
16     if (buf0 == &MPIR_F08_MPI_BOTTOM) {
17         buf0 = MPI_BOTTOM;
18     }
19 
20     err = MPI_Free_mem(buf0);
21 
22     return err;
23 }
24