gcc-4.9/gcc/testsuite/gfortran.dg/lto/20091028-1_1.c


1
2
3
4
5
6
7
8
9
10
11

extern void bcopy(const void *, void *, __SIZE_TYPE__ n);
char *p;
int int_gen_ti_header_c_ (char * hdrbuf, int * hdrbufsize,
                          int * itypesize, int * typesize,
                          int * DataHandle, char * Data,
                          int * Count, int * code)
{
  bcopy (typesize, p, sizeof(int)) ;
  bcopy (Data, p, *Count * *typesize) ;
}