summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/bind_c_vars_driver.c
blob: 2af800a15c2446e5974b2dc7b02fa44d19291a58 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
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() */