Testing/General/test-0.p


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
27

program main(input);
 var a: integer;
 var b: array[1 .. 10] of real;
 var x: real;
 function foo(x: integer; y: real):integer;
 begin
	foo := foo(x-1) + 1;
	x := 13
 end;
begin
 if ( x > 3.14 and x < 0.0 ) then
 	x := 1.0
 else
	x := 0.0
end.