| /* 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; | |
| } |