URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [global_vars_c_init_driver.c] - Rev 414
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