URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [bind_c_usage_24_c.c] - Blame information for rev 801

Go to most recent revision | Details | Compare with Previous | View Log


/* Compiled and linked by bind_c.f90.  */
 
#include <stdlib.h>
 
void subtest (_Bool, int *);
 
void
c_proc (_Bool present, int *val)
{
  int val2;
  if (!present && val)
    abort ();
  else if (present)
    {
      if (!val) abort ();
      if (*val != 4) abort ();
      *val = 7;
    }
 
  val2 = 43;
  subtest (1, &val2);
  subtest (0, NULL);
  if (val2 != -45) abort ();
}

Line No.	Rev	Author	Line
1	694	jeremybenn	`/* Compiled and linked by bind_c.f90. */`
2
3			`#include <stdlib.h>`
4
5			`void subtest (_Bool, int *);`
6
7			`void`
8			`c_proc (_Bool present, int *val)`
9			`{`
10			`int val2;`
11			`if (!present && val)`
12			`abort ();`
13			`else if (present)`
14			`{`
15			`if (!val) abort ();`
16			`if (*val != 4) abort ();`
17			`*val = 7;`
18			`}`
19
20			`val2 = 43;`
21			`subtest (1, &val2);`
22			`subtest (0, NULL);`
23			`if (val2 != -45) abort ();`
24			`}`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [bind_c_usage_24_c.c] - Blame information for rev 801