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

Subversion Repositories openrisc

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

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


/* Check character-returning bind(C) functions
   PR fortran/34079
   To be linked with bind_c_usage_16.f03
*/
 
#include <stdlib.h>
 
char returnA(char *);
char returnB(void);
void test(void);
 
int main()
{
  char c;
  c = 'z';
  c = returnA(&c);
  if (c != 'A') abort();
  c = returnB();
  if (c != 'B') abort();
  test();
  return 0;
}

Line No.	Rev	Author	Line
1	694	jeremybenn	`/* Check character-returning bind(C) functions`
2			`PR fortran/34079`
3			`To be linked with bind_c_usage_16.f03`
4			`*/`
5
6			`#include <stdlib.h>`
7
8			`char returnA(char *);`
9			`char returnB(void);`
10			`void test(void);`
11
12			`int main()`
13			`{`
14			`char c;`
15			`c = 'z';`
16			`c = returnA(&c);`
17			`if (c != 'A') abort();`
18			`c = returnB();`
19			`if (c != 'B') abort();`
20			`test();`
21			`return 0;`
22			`}`

Browse

Tools

Subversion Repositories openrisc

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