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