gcc/testsuite/gfortran.dg/iso_c_binding_rename_1_driver.c

   1 void sub0(int);
   2 void sub1(int *);
   3 void sub2(int, long);
   4 void sub3(int *, int *);
   5 void sub4(int *, int *);
   6
   7 int main(int argc, char **argv)
   8 {
   9   int i = 1;
  10   long j = 1;
  11
  12   sub0(i);
  13   sub1(&i);
  14   sub2(i, j);
  15   sub3(&i, &i);
  16   sub4(&i, &i);
  17
  18   return 0;
  19 }