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 
main()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 }
23