gcc/testsuite/gfortran.dg/c_char_driver.c

   1 void param_test(char my_char, char my_char_2);
   2 void sub0(void);
   3 void sub1(char *my_char);
   4
   5 int main(int argc, char **argv)
   6 {
   7   char my_char = 'y';
   8
   9   param_test('y', 'z');
  10   sub0();
  11   sub1(&my_char);
  12
  13   return 0;
  14 }