Ton

1
global int i;
2

3
#include "i1sub1.fc";
4

5
() sub0() impure { i = 0; }
6

7
#include "i1sub2.fc";
8

9
() main() impure {
10
  sub0();
11
  sub1();
12
  sub2();
13
  i = 9;
14
}
15

16
#include "../test/i1sub2.fc";