Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/bind_c_vars_driver.c @ 152:2b5abeee2509
update gcc11
author | anatofuz |
---|---|
date | Mon, 25 May 2020 07:50:57 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
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() */