URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [global_vars_f90_init_driver.c] - Rev 694
Compare with Previous | Blame | View Log
/* initialized by fortran */ int i; 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() */