aboutsummaryrefslogtreecommitdiff
path: root/check/code-gen/ifs.p
blob: 533eadcd8ff67667ab061ef0f80b75d242997a84 (plain)
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
28
29
30
31
32
33
34
35
36
37
program main ();
        var a,b,c,d,e,f,g,h,i,j,k,l,m,n,o: integer;
        var rb,rc,rd,re,rf,rg,rh,ri,rj,rk,rl,rm,rn,ro: real;
begin
        a := 0;
        if ( 1 = 2 ) then b:= 1;
        if ( 1.1 = 2.1 ) then c:=0;
	b := 1;
	c := 1;
	d := 1;
	e := 1;
	f := 1;
	g := 1;
	h := 1;
	i := 1;
	j := 1;
	k := 1;
	l := 1;
	m := 1;
	n := 1;
	o := 1;

	rb := 1.0;
	rc := 1.0;
	rd := 1.0;
	re := 1.0;
	rf := 1.0;
	rg := 1.0;
	rh := 1.0;
	ri := 1.0;
	rj := 1.0;
	rk := 1.0;
	rl := 1.0;
	rm := 1.0;
	rn := 1.0;
	ro := 1.0
end.