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/] [bind_c_coms_driver.c] - Rev 312
Go to most recent revision | Compare with Previous | Blame | View Log
double fabs(double); void test_coms(void); extern void abort(void); struct {double r, s; } com; /* refers to the common block "com" */ double single; /* refers to the common block "single" */ long int mycom; /* refers to the common block "MYCOM" */ long long int mycom2; /* refers to the common block "MYCOM2" */ struct {int i, j; } f03_com2; /* refers to the common block "com2" */ int main(int argc, char **argv) { com.r = 1.0; com.s = 2.0; single = 1.0; mycom = 1; mycom2 = 2; f03_com2.i = 1; f03_com2.j = 2; /* change the common block variables in F90 */ test_coms(); if(fabs(com.r - 1.1) > 0.00000000) abort(); if(fabs(com.s - 2.1) > 0.00000000) abort(); if(fabs(single - 1.1) > 0.00000000) abort(); if(mycom != 2) abort(); if(mycom2 != 3) abort(); if(f03_com2.i != 2) abort(); if(f03_com2.j != 3) abort(); return 0; }/* end main() */
Go to most recent revision | Compare with Previous | Blame | View Log