OpenCores
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 694

Details | Compare with Previous | View Log

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
}

powered by: WebSVN 2.1.0

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