URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [bind_c_usage_16_c.c] - Rev 305
Go to most recent revision | Compare with Previous | Blame | 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; }
Go to most recent revision | Compare with Previous | Blame | View Log