view gcc/testsuite/gfortran.dg/iso_c_binding_rename_2_driver.c @ 128:fe568345ddd5

fix CbC-example
author mir3636
date Wed, 11 Apr 2018 19:32:28 +0900
parents 04ced10e8804
children
line wrap: on
line source

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;
}