gcc/testsuite/gfortran.dg/ISO_Fortran_binding_11.c

   1 /* Test the fix of PR89846.
   2
   3 Contributed by Reinhold Bader  <Bader@lrz.de>#include <stdio.h> */
   4
   5 #include <stdlib.h>
   6 #include <stddef.h>
   7 #include <stdio.h>
   8 #include <ISO_Fortran_binding.h>
   9
  10 typedef struct
  11 {
  12   char n;
  13   float r[2];
  14 } t1;
  15
  16 typedef struct
  17 {
  18   long int i;
  19   t1 t1;
  20 } t2;
  21
  22
  23
  24 void ta0(CFI_cdesc_t *);
  25 void ta1(CFI_cdesc_t *);
  26
  27 void ti(CFI_cdesc_t *this, int flag)
  28 {
  29   int status;
  30   size_t dis;
  31   CFI_CDESC_T(1) that;
  32   t1 *ans;
  33
  34   switch (flag)
  35     {
  36     case 0:
  37       dis = offsetof(t2, t1);
  38       status = CFI_establish((CFI_cdesc_t *) &that, NULL, CFI_attribute_other,
  39                              CFI_type_struct, sizeof(t1), 1, NULL);
  40       if (status != CFI_SUCCESS)
  41         {
  42           printf("FAIL 1 establish: nonzero status %i\n",status);
  43           exit(1);
  44         }
  45       status = CFI_select_part((CFI_cdesc_t *) &that, this, dis, 0);
  46       if (status != CFI_SUCCESS)
  47         {
  48           printf("FAIL C1: nonzero status %i\n",status);
  49           exit(1);
  50         }
  51      break;
  52
  53     case 1:
  54       dis = offsetof(t2, i);
  55       status = CFI_establish((CFI_cdesc_t *) &that, NULL, CFI_attribute_other,
  56                              CFI_type_long, 0, 1, NULL);
  57       if (status != CFI_SUCCESS)
  58         {
  59           printf("FAIL 2 establish: nonzero status %i\n",status);
  60           exit(1);
  61         }
  62       status = CFI_select_part((CFI_cdesc_t *) &that, this, dis, 0);
  63       if (status != CFI_SUCCESS)
  64         {
  65           printf("FAIL C2: nonzero status %i\n",status);
  66           exit(1);
  67         }
  68     }
  69
  70   if (CFI_is_contiguous((CFI_cdesc_t *) &that))
  71     {
  72       printf("FAIL C: contiguity for flag value %i - is %i\n",flag,
  73              CFI_is_contiguous((CFI_cdesc_t *) &that));
  74     }
  75
  76   if (flag == 0) ta0((CFI_cdesc_t *) &that);
  77   if (flag == 1) ta1((CFI_cdesc_t *) &that);
  78 }