gcc/testsuite/gfortran.dg/assumed_type_13.c

   1 #include <ISO_Fortran_binding.h>
   2
   3 void
   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 }