From 0caa6768c7055c3e3fb2f2ebeda2c35152ea011b Mon Sep 17 00:00:00 2001 From: Tucker Evans Date: Sun, 4 Aug 2019 21:23:38 -0400 Subject: Update checks --- check/for.p | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) create mode 100644 check/for.p (limited to 'check/for.p') diff --git a/check/for.p b/check/for.p new file mode 100644 index 0000000..694f9a5 --- /dev/null +++ b/check/for.p @@ -0,0 +1,16 @@ +program main ( input, output ); + + var a, b: integer; + var x,y,z: real; + var ai :array [1..10] of integer; +begin +{ TEST } + + a := 1; + x := 3.14; + b := a + 35; + (* test *) + for c := 0 to 10 do begin + for a:= 10 downto 0 do b := a - c + end +end. -- cgit v1.1 From dd07055aca1c45d147d773350e0c21930822a74f Mon Sep 17 00:00:00 2001 From: Tucker Evans Date: Sun, 18 Aug 2019 22:27:52 -0400 Subject: Add for loop parsing Also fixes tree printing --- check/for.p | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) (limited to 'check/for.p') diff --git a/check/for.p b/check/for.p index 694f9a5..5391c8c 100644 --- a/check/for.p +++ b/check/for.p @@ -1,14 +1,9 @@ program main ( input, output ); - var a, b: integer; - var x,y,z: real; - var ai :array [1..10] of integer; + var a, b,c: integer; begin -{ TEST } a := 1; - x := 3.14; - b := a + 35; (* test *) for c := 0 to 10 do begin for a:= 10 downto 0 do b := a - c -- cgit v1.1