From dfd4c9b09885fef5dff326925cceae44e49455b0 Mon Sep 17 00:00:00 2001 From: Tucker Evans Date: Wed, 9 Oct 2019 01:01:57 -0400 Subject: Update check files --- check/code-gen/ifs.p | 37 +++++++++++++++++++++++++++++++++++++ 1 file changed, 37 insertions(+) create mode 100644 check/code-gen/ifs.p (limited to 'check/code-gen/ifs.p') 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. -- cgit v1.1