tests/general/statics.icn


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

#SRC: JCON

procedure main()
	foo()
	foo()
	p()
	p()
end

procedure foo()
	static a

	write(image(a))
	a := 1;
end


procedure p()
   static c
   initial c := 0

   c +:= 1

   write(c)

end