/* Test fix of a problem with CFI_is_contiguous.  */

/* Contributed by Gilles Gouaillardet  <gilles@rist.or.jp> */

#include "../../../libgfortran/ISO_Fortran_binding.h"
#include <stdlib.h>

int cdesc_c(CFI_cdesc_t* x, long *expected)
{
  int res;
  res = CFI_is_contiguous (x);
  if (x->base_addr != (void *)*expected) res = 0;
  return res;
}