diff options
author | Tucker Evans <tuckerevans24@gmail.com> | 2019-10-09 01:01:57 -0400 |
---|---|---|
committer | Tucker Evans <tuckerevans24@gmail.com> | 2019-10-09 01:01:57 -0400 |
commit | dfd4c9b09885fef5dff326925cceae44e49455b0 (patch) | |
tree | d09bae8528a80c0ac509b683f548f07f0e1c8814 /check/code-gen/ifs.p | |
parent | 64fbe9da1ab872b27b5f4dd3b46eb1a7b69d8245 (diff) |
Update check files
Diffstat (limited to 'check/code-gen/ifs.p')
-rw-r--r-- | check/code-gen/ifs.p | 37 |
1 files changed, 37 insertions, 0 deletions
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. |