URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Subversion Repositories openrisc_2011-10-31
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [bind_c_vars_driver.c] - Rev 316
Go to most recent revision | Compare with Previous | Blame | View Log
double fabs (double); /* defined in fortran module bind_c_vars */ void changeF90Globals(void); extern void abort(void); /* module level scope in bind_c_vars */ extern int myf90int; /* myf90int in bind_c_vars */ float myF90Real; /* f90_real in bind_c_vars */ int myF90Array3D[10][5][18]; /* A in bind_c_vars */ int myF90Array2D[2][3]; /* B in bind_c_vars */ int myVariable; /* c2 in bind_c_vars */ int c3; /* c3 in bind_c_vars */ int c4; /* c4 in bind_c_vars */ int main(int argc, char **argv) { myf90int = 1; myF90Real = 1.0; myVariable = 2; c3 = 3; c4 = 4; myF90Array3D[2][3][4] = 1; myF90Array2D[1][2] = 2; /* will change the global vars initialized above */ changeF90Globals(); if(myf90int != 2) abort(); if(fabs(myF90Real-3.0) > 0.00000000) abort(); if(myVariable != 4) abort(); if(c3 != 6) abort(); if(c4 != 2) abort(); if(myF90Array3D[2][3][4] != 2) abort(); if(myF90Array2D[1][2] != 3) abort(); return 0; }/* end main() */
Go to most recent revision | Compare with Previous | Blame | View Log