URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gcc.dg/] [vect/] [pr24300.c] - Rev 298
Compare with Previous | Blame | View Log
/* { dg-do compile } */ static int *** foo (int); void bar () { int ***p = foo (2); } extern int *nd; extern int ***tc; extern int *ap; extern int *as; extern float ss; static int *** foo (int Fc) { int i, j, s, p, n, t; n = 0; for (s = 0; s < 4; s++) n += nd[s]; for (i = 0; i < n; i++) { p = ap[i]; s = as[i]; for (j = 0; j < Fc; j++) tc[p][s][j] = i * ss + j; } return (tc); } /* { dg-final { cleanup-tree-dump "vect" } } */