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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log


/* in fortran module */
void test0(void);
 
extern void abort(void);
 
int main(int argc, char **argv)
{
   test0();
   return 0;
}/* end main() */
 
void test_address(void *c_ptr, int expected_value)
{
   if((*(int *)(c_ptr)) != expected_value)
      abort();
   return;
}/* end test_address() */

Line No.	Rev	Author	Line
1	694	jeremybenn	`/* in fortran module */`
2			`void test0(void);`
3
4			`extern void abort(void);`
5
6			`int main(int argc, char **argv)`
7			`{`
8			`test0();`
9			`return 0;`
10			`}/* end main() */`
11
12			`void test_address(void *c_ptr, int expected_value)`
13			`{`
14			`if(((int )(c_ptr)) != expected_value)`
15			`abort();`
16			`return;`
17			`}/* end test_address() */`

Browse

Tools

Subversion Repositories openrisc

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