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()12int 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