mirror of
https://github.com/autc04/Retro68.git
synced 2024-06-28 11:30:19 +00:00
23 lines
337 B
C
23 lines
337 B
C
/* 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;
|
|
}
|