gcc/testsuite/gfortran.dg/assumed_type_13.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

#include <ISO_Fortran_binding.h>

void
test_c (CFI_cdesc_t *x, size_t n, int num)
{
  if (!x->base_addr)
    __builtin_abort ();
  if (x->version != CFI_VERSION)
    __builtin_abort ();
  if (x->rank != 1)
    __builtin_abort ();
  if (x->attribute != CFI_attribute_other)
    __builtin_abort ();
  if (x->dim[0].lower_bound != 0)
    __builtin_abort ();
  if (x->dim[0].extent != 3)
    __builtin_abort ();

  if (x->elem_len != n || x->dim[0].sm != n)
    __builtin_abort ();

  if (num == 1 && x->type != CFI_type_int16_t)
    __builtin_abort ();
  if (num == 2 && x->type != CFI_type_double_Complex)
    __builtin_abort ();
}