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


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

main()
{
    extern y_();
    long a, b, c;

    a = 4;
    b = 5;
    c = 6;

    y_(&a, &b, &c);
}

x_(u, v, w)
long *u, *v, *w;
{
    *u *= 2;
    *v *= 3;
    *w *= 4;
}