1  /* TS29113 8.3.1: ISO_Fortran_binding.h may be included more than once.  */
       2  
       3  #include <stdlib.h>
       4  
       5  #include <ISO_Fortran_binding.h>
       6  #include "dump-descriptors.h"
       7  #include <ISO_Fortran_binding.h>
       8  
       9  extern void ctest (CFI_cdesc_t *a);
      10  
      11  void
      12  ctest (CFI_cdesc_t *a)
      13  {
      14    /* Dump the descriptor contents to test that we can access the fields
      15       correctly, etc.  */
      16    dump_CFI_cdesc_t (a);
      17  
      18    if (a->version != CFI_VERSION)
      19      abort ();
      20  }