URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [global_vars_c_init_driver.c] - Rev 302
Go to most recent revision | Compare with Previous | Blame | View Log
int i = 2; void test_globals(void); extern void abort(void); int main(int argc, char **argv) { /* verify that i has been initialized by f90 */ if(i != 2) abort(); test_globals(); return 0; }/* end main() */
Go to most recent revision | Compare with Previous | Blame | View Log