OpenCores
URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [bind_c_dts_2_driver.c] - Diff between revs 302 and 384

Go to most recent revision | Only display areas with differences | Details | Blame | View Log

Rev 302 Rev 384
typedef struct c_type_0
typedef struct c_type_0
{
{
  int i;
  int i;
  int *ptr;
  int *ptr;
  int array[3];
  int array[3];
}c_type_0_t;
}c_type_0_t;
 
 
typedef struct c_type_1
typedef struct c_type_1
{
{
  c_type_0_t nested_type;
  c_type_0_t nested_type;
  int *ptr;
  int *ptr;
  int j;
  int j;
}c_type_1_t;
}c_type_1_t;
 
 
void sub0(c_type_1_t *c_type, int expected_i, int *expected_nested_ptr,
void sub0(c_type_1_t *c_type, int expected_i, int *expected_nested_ptr,
          int array_0, int array_1, int array_2,
          int array_0, int array_1, int array_2,
          int *expected_ptr, int expected_j);
          int *expected_ptr, int expected_j);
 
 
int main(int argc, char **argv)
int main(int argc, char **argv)
{
{
  c_type_1_t c_type;
  c_type_1_t c_type;
 
 
  c_type.nested_type.i = 10;
  c_type.nested_type.i = 10;
  c_type.nested_type.ptr = &(c_type.nested_type.i);
  c_type.nested_type.ptr = &(c_type.nested_type.i);
  c_type.nested_type.array[0] = 1;
  c_type.nested_type.array[0] = 1;
  c_type.nested_type.array[1] = 2;
  c_type.nested_type.array[1] = 2;
  c_type.nested_type.array[2] = 3;
  c_type.nested_type.array[2] = 3;
  c_type.ptr = &(c_type.j);
  c_type.ptr = &(c_type.j);
  c_type.j = 11;
  c_type.j = 11;
 
 
  sub0(&c_type, c_type.nested_type.i, c_type.nested_type.ptr,
  sub0(&c_type, c_type.nested_type.i, c_type.nested_type.ptr,
       c_type.nested_type.array[0],
       c_type.nested_type.array[0],
       c_type.nested_type.array[1], c_type.nested_type.array[2],
       c_type.nested_type.array[1], c_type.nested_type.array[2],
       c_type.ptr, c_type.j);
       c_type.ptr, c_type.j);
 
 
  return 0;
  return 0;
}
}
 
 

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.