1 #include <ISO_Fortran_binding.h> 2 3 void test_c(CFI_cdesc_t * x,size_t n,int num)4test_c (CFI_cdesc_t *x, size_t n, int num) 5 { 6 if (!x->base_addr) 7 __builtin_abort (); 8 if (x->version != CFI_VERSION) 9 __builtin_abort (); 10 if (x->rank != 1) 11 __builtin_abort (); 12 if (x->attribute != CFI_attribute_other) 13 __builtin_abort (); 14 if (x->dim[0].lower_bound != 0) 15 __builtin_abort (); 16 if (x->dim[0].extent != 3) 17 __builtin_abort (); 18 19 if (x->elem_len != n || x->dim[0].sm != n) 20 __builtin_abort (); 21 22 if (num == 1 && x->type != CFI_type_int16_t) 23 __builtin_abort (); 24 if (num == 2 && x->type != CFI_type_double_Complex) 25 __builtin_abort (); 26 } 27