1  /* Test the fix for PR93524, in which CFI_allocate was computing
       2     sm incorrectly for dimensions > 2.  */
       3  
       4  #include <stdlib.h>  // For size_t
       5  #include <ISO_Fortran_binding.h>
       6  
       7  void my_fortran_sub_1 (CFI_cdesc_t *dv); 
       8  void my_fortran_sub_2 (CFI_cdesc_t *dv); 
       9  
      10  int main ()
      11  {
      12    CFI_CDESC_T (3) a;
      13    CFI_cdesc_t *dv = (CFI_cdesc_t *) &a;
      14    // dv, base_addr, attribute,            type, elem_len, rank, extents
      15    CFI_establish (dv, NULL, CFI_attribute_allocatable, CFI_type_float, 0, 3, NULL); 
      16  
      17    if (dv->base_addr != NULL)
      18      return 1;  // shall not be allocated
      19  
      20    CFI_index_t lower_bounds[] = {-10, 0, 3}; 
      21    CFI_index_t upper_bounds[] = {10, 5, 10}; 
      22    size_t elem_len = 0;  // only needed for strings
      23    if (CFI_SUCCESS != CFI_allocate (dv, lower_bounds, upper_bounds, elem_len))
      24      return 2;
      25  
      26    if (!CFI_is_contiguous (dv))
      27      return 2;  // allocatables shall be contiguous,unless a strided section is used
      28  
      29    my_fortran_sub_1 (dv);
      30    my_fortran_sub_2 (dv);
      31    CFI_deallocate (dv);
      32    return 0;
      33  }