1 #include <ISO_Fortran_binding.h>
2 
3 void
test_c(CFI_cdesc_t * x,size_t n,int num)4 test_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