gcc/testsuite/gfortran.dg/ISO_Fortran_binding_9.c

   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 }