gcc-4.9/gcc/testsuite/gfortran.dg/iso_c_binding_rename_1_driver.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

void sub0(int);
void sub1(int *);
void sub2(int, long);
void sub3(int *, int *);
void sub4(int *, int *);

int main(int argc, char **argv)
{
  int i = 1;
  long j = 1;

  sub0(i);
  sub1(&i);
  sub2(i, j);
  sub3(&i, &i);
  sub4(&i, &i);

  return 0;
}