5 extern void abort(void);
7 struct {double r, s; } com; /* refers to the common block "com" */
8 double single; /* refers to the common block "single" */
9 long int mycom; /* refers to the common block "MYCOM" */
10 long long int mycom2; /* refers to the common block "MYCOM2" */
11 struct {int i, j; } f03_com2; /* refers to the common block "com2" */
13 int main(int argc, char **argv)
23 /* change the common block variables in F90 */
26 if(fabs(com.r - 1.1) > 0.00000000)
28 if(fabs(com.s - 2.1) > 0.00000000)
30 if(fabs(single - 1.1) > 0.00000000)