/* Test fix for PR89366.  */

/* Contributed by Reinhold Bader  <Bader@lrz.de>  */

#include <stdio.h>
#include <math.h>
#include "../../../libgfortran/ISO_Fortran_binding.h"

#define DEBUG 0

void process_string(CFI_cdesc_t *this, int *ierr) {
  char *cstr;
  cstr = (char *) this->base_addr;
  *ierr = 0;
  if (this->rank != 0) {
    *ierr = 1;
    return;
  }
  if (DEBUG == 1) {
    printf("elem_len member has value %i %s\n",this->elem_len, cstr);
  }

}