rt_gccstream/gcc/testsuite/gfortran.dg/iso_c_binding_rename_2_driv...

17 lines
188 B
C

void sub2(int **);
void sub3(int **);
void sub4(int **);
int main(int argc, char **argv)
{
int i = 1;
int *ptr;
ptr = &i;
sub2(&ptr);
sub3(&ptr);
sub4(&ptr);
return 0;
}