1  /* Test fix for PR89366.  */
       2  
       3  /* Contributed by Reinhold Bader  <Bader@lrz.de>  */
       4  
       5  #include <stdio.h>
       6  #include <math.h>
       7  #include <ISO_Fortran_binding.h>
       8  
       9  #define DEBUG 0
      10  
      11  void process_string(CFI_cdesc_t *this, int *ierr) {
      12    char *cstr;
      13    cstr = (char *) this->base_addr;
      14    *ierr = 0;
      15    if (this->rank != 0) {
      16      *ierr = 1;
      17      return;
      18    }
      19    if (DEBUG == 1) {
      20      printf("elem_len member has value %i %s\n",this->elem_len, cstr);
      21    }
      22  
      23  }