Pascal Tests

git-svn-id: svn://svn.code.sf.net/p/nuttx/code/trunk@504 42af7a65-404d-4744-a932-0658087f49c3

1 files changed, 43 insertions, 0 deletions

diff --git a/misc/pascal/tests/src/006-optconst.pas b/misc/pascal/tests/src/006-optconst.pas
new file mode 100644
index 000000000..511d807eb
--- /dev/null
+++ b/misc/pascal/tests/src/006-optconst.pas
@@ -0,0 +1,43 @@
+{ A test of constant optimiztion }
+
+program constopt;
+var 
+   i1, i2, i3 : integer;
+   b1	      :  boolean
+begin
+   { integer operations:
+   1. =, <>, <, <=, >, >=
+   2. +, -, OR
+   3. *, DIV, AND, SHL, SHR
+   4. -, NOT
+   }
+     
+   i1 := -2;                { -2 }
+   i1 := 3 * 2;             {  6 }
+   i1 := 3 * (-2);          { -6 }
+   i1 := 3 div 2;           {  1 }
+   i1 := 3 div (-2);        { -1 }
+   i1 := 4 * 3 div (-2);    { -6 }
+   i1 := 4 * (3 div (-2));  { -4 }
+   i1 := (4 * 3) div (-2);  { -6 }
+
+   i1 := 3 + 2;             {  5 }
+   i1 := 3 - 2;             {  1 }
+   i1 := 3 + (-2);          {  1 }
+   i1 := 4 + 3 - 2;         {  5 }
+   i1 := 4 + (3 - 2);       {  5 }
+   i1 := (4 + 3) - 2;       {  5 }
+
+   b1 := -2 = 3 + 2;                    { -2 =  5  0 }
+   b1 := 3 * 2 <> 3 - 2;                {  6 <> 1 -1 }
+   b1 := 3 * (-2) < 3 + (-2);           { -6 <  1 -1 }
+   b1 := 3 div 2 <= 4 + 3 - 2;          {  1 <= 5 -1 }
+   b1 := 3 div (-2) > 4 + (3 - 2);      { -1 >  5  0 }
+   b1 := 4 * 3 div (-2) >= (4 + 3) - 2; { -6 >= 5  0 }
+
+   { floating point operations }
+   { to be provided }
+
+   { string operations }
+   { to be provided }
+end.