2017-02-20 Paul Thomas <pault@gcc.gnu.org>
[official-gcc.git] / gcc / testsuite / gfortran.dg / bind_c_usage_16_c.c
blob30ce25f8bd7ac3cf654f357db8b9de626e5a8645
1 /* Check character-returning bind(C) functions
2 PR fortran/34079
3 To be linked with bind_c_usage_16.f03
4 */
6 #include <stdlib.h>
8 char returnA(char *);
9 char returnB(void);
10 void test(void);
12 int main()
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;