1 #include <ISO_Fortran_binding.h>
2 
3 extern int test_rank (CFI_cdesc_t *a);
4 
test_rank(CFI_cdesc_t * a)5 int test_rank (CFI_cdesc_t *a)
6 {
7   if (!a)
8     return -1;  /* Should not happen.  */
9   return a->rank;
10 }
11