view gcc/testsuite/gfortran.dg/iso_c_binding_rename_1_driver.c @ 144:8f4e72ab4e11

fix segmentation fault caused by nothing next cur_op to end
author Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp>
date Sun, 23 Dec 2018 21:23:56 +0900
parents 04ced10e8804
children
line wrap: on
line source

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