gcc/testsuite/gfortran.dg/c-interop/note-5-4-c.c

#include <ISO_Fortran_binding.h>

extern int test_rank (CFI_cdesc_t *a);

int test_rank (CFI_cdesc_t *a)
{
  if (!a)
    return -1;  /* Should not happen.  */
  return a->rank;
}