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] - Blame information for rev 713

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

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

Browse

Tools

Subversion Repositories openrisc

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