gcc/testsuite/gfortran.dg/bind_c_usage_16_c.c

   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 }