reference/C/CONTRIB/OR_USING_C/a.4.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

typedef struct {
	float r, i;
} complex;

main()
{
    extern complex y_();
    complex i;

    y_(&i);
}

x_(c)
complex *c;
{
    c->r = 1.0;
    c->i = 2.0;
}