47 lines
1.1 KiB
C
47 lines
1.1 KiB
C
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() */
|