diff options
Diffstat (limited to 'check/code-gen')
-rw-r--r-- | check/code-gen/assign.p | 6 | ||||
-rw-r--r-- | check/code-gen/assign2.p | 14 | ||||
-rw-r--r-- | check/code-gen/ifs.p | 37 | ||||
-rw-r--r-- | check/code-gen/proc.p | 22 | ||||
-rw-r--r-- | check/code-gen/write.p | 4 |
5 files changed, 83 insertions, 0 deletions
diff --git a/check/code-gen/assign.p b/check/code-gen/assign.p new file mode 100644 index 0000000..f8473f0 --- /dev/null +++ b/check/code-gen/assign.p @@ -0,0 +1,6 @@ +program main (output); + var a,b,c,d,e: integer; +begin + a := 1; + write(a) +end. diff --git a/check/code-gen/assign2.p b/check/code-gen/assign2.p new file mode 100644 index 0000000..7d94abc --- /dev/null +++ b/check/code-gen/assign2.p @@ -0,0 +1,14 @@ +program main (output); + var a,b,c,d,e: integer; +begin + a := 1; + b := 2; + c := 3; + d := 4; + e := 5; + write(a); + write(b); + write(c); + write(d); + write(e) +end. diff --git a/check/code-gen/ifs.p b/check/code-gen/ifs.p new file mode 100644 index 0000000..533eadc --- /dev/null +++ b/check/code-gen/ifs.p @@ -0,0 +1,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. diff --git a/check/code-gen/proc.p b/check/code-gen/proc.p new file mode 100644 index 0000000..6d43ebf --- /dev/null +++ b/check/code-gen/proc.p @@ -0,0 +1,22 @@ +program main (output); + procedure bar (a, b, c, d, e, f, g, h, i, j, k, l, m, n, o: integer); + begin + write(a); + write(b); + write(c); + write(d); + write(e); + write(f); + write(g); + write(h); + write(i); + write(j); + write(k); + write(l); + write(m); + write(n); + write(o) + end; +begin + bar(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15) +end. diff --git a/check/code-gen/write.p b/check/code-gen/write.p new file mode 100644 index 0000000..2201bc4 --- /dev/null +++ b/check/code-gen/write.p @@ -0,0 +1,4 @@ +program main (output); +begin + write(1) +end. |