1  /* Check character-returning bind(C) functions
       2     PR fortran/34079
       3     To be linked with bind_c_usage_16.f03
       4  */
       5  
       6  #include <stdlib.h>
       7  
       8  char returnA(char *);
       9  char returnB(void);
      10  void test(void);
      11  
      12  int main()
      13  {
      14    char c;
      15    c = 'z';
      16    c = returnA(&c);
      17    if (c != 'A') abort();
      18    c = returnB();
      19    if (c != 'B') abort();
      20    test();
      21    return 0;
      22  }