gcc/testsuite/gfortran.dg/ISO_Fortran_binding_3.c

   1 #include <ISO_Fortran_binding.h>
   2 #include <stdio.h>
   3 #include <stdlib.h>
   4
   5 /* Part of the test for the fix of PR88929 - see ISO_Fortran_binding_3.f90. */
   6
   7 int c_test (CFI_cdesc_t * a_desc)
   8 {
   9   CFI_index_t idx[2];
  10   int *res_addr;
  11   int err = 1; /* this error code represents all errors */
  12
  13   if (a_desc->rank != 2)
  14     return err;
  15
  16   if (a_desc->type != CFI_type_int)
  17     return err;
  18
  19   err = 0;
  20   for (idx[0] = 0; idx[0] < a_desc->dim[0].extent; idx[0]++)
  21     for (idx[1] = 0; idx[1] < a_desc->dim[1].extent; idx[1]++)
  22       {
  23         res_addr = CFI_address (a_desc, idx);
  24         err += *res_addr;
  25         *res_addr = *res_addr + 1;
  26       }
  27
  28   if (err != 10) return 1;
  29
  30   return 0;
  31 }
  32