1  /* Test fix of a problem with CFI_is_contiguous.  */
       2  
       3  /* Contributed by Gilles Gouaillardet  <gilles@rist.or.jp> */
       4  
       5  #include <ISO_Fortran_binding.h>
       6  #include <stdlib.h>
       7  
       8  int cdesc_c(CFI_cdesc_t* x, long *expected)
       9  {
      10    int res;
      11    res = CFI_is_contiguous (x);
      12    if (x->base_addr != (void *)*expected) res = 0;
      13    return res;
      14  }