URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [global_vars_c_init_driver.c] - Blame information for rev 704

Go to most recent revision | Details | Compare with Previous | 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() */

Line No.	Rev	Author	Line
1	694	jeremybenn	`int i = 2;`
2			`void test_globals(void);`
3
4			`extern void abort(void);`
5
6			`int main(int argc, char **argv)`
7			`{`
8			`/* verify that i has been initialized by f90 */`
9			`if(i != 2)`
10			`abort();`
11			`test_globals();`
12			`return 0;`
13			`}/* end main() */`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [global_vars_c_init_driver.c] - Blame information for rev 704