OSDN Git Service
(root)
/
pf3gnuchains
/
gcc-fork.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Add NIOS2 support. Code from SourceyG++.
[pf3gnuchains/gcc-fork.git]
/
gcc
/
testsuite
/
gfortran.dg
/
bind_c_usage_16_c.c
1
/* 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
}