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.c-torture/] [execute/] [941021-1.c] - Rev 297
Compare with Previous | Blame | View Log
double glob_dbl; f (pdbl, value) double *pdbl; double value; { if (pdbl == 0) pdbl = &glob_dbl; *pdbl = value; } main () { f ((void *) 0, 55.1); if (glob_dbl != 55.1) abort (); exit (0); }