URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [bind_c_usage_24_c.c] - Rev 801
Go to most recent revision | Compare with Previous | Blame | View Log
/* Compiled and linked by bind_c.f90. */ #include <stdlib.h> void subtest (_Bool, int *); void c_proc (_Bool present, int *val) { int val2; if (!present && val) abort (); else if (present) { if (!val) abort (); if (*val != 4) abort (); *val = 7; } val2 = 43; subtest (1, &val2); subtest (0, NULL); if (val2 != -45) abort (); }
Go to most recent revision | Compare with Previous | Blame | View Log