gcc/testsuite/gfortran.dg/iso_c_binding_rename_2_driver.c

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