Subversion Repositories openrisc_me

double fabs(double);

void test_coms(void);

extern void abort(void);

struct {double r, s; } com;     /* refers to the common block "com" */

double single;                  /* refers to the common block "single" */

long int mycom;                 /* refers to the common block "MYCOM" */

long long int mycom2;           /* refers to the common block "MYCOM2" */

struct {int i, j; } f03_com2;   /* refers to the common block "com2" */

int main(int argc, char **argv)

{

  com.r = 1.0;

  com.s = 2.0;

  single = 1.0;

  mycom = 1;

  mycom2 = 2;

  f03_com2.i = 1;

  f03_com2.j = 2;

  /* change the common block variables in F90 */

  test_coms();

  if(fabs(com.r - 1.1) > 0.00000000)

    abort();

  if(fabs(com.s - 2.1) > 0.00000000)

    abort();

  if(fabs(single - 1.1) > 0.00000000)

    abort();

  if(mycom != 2)

    abort();

  if(mycom2 != 3)

    abort();

  if(f03_com2.i != 2)

    abort();

  if(f03_com2.j != 3)

    abort();

  return 0;

}/* end main() */