Browse Source

*** empty log message ***

florian 25 years ago
parent
commit
fdadb4a450
1 changed files with 29 additions and 0 deletions
  1. 29 0
      tests/test/testcmov.pp

+ 29 - 0
tests/test/testcmov.pp

@@ -0,0 +1,29 @@
+var
+   l1,l2 : longint;
+   w1,w2 : word;
+   b1,b2 : byte;
+   b : boolean;
+
+begin
+   if b then
+     w1:=w2;
+   if b then
+     w1:=w2;
+   if b then
+     begin
+        w1:=w2;
+        l1:=l2;
+     end;
+   if b then
+     w1:=w2
+   else
+     w2:=w1;
+   {
+   if b then
+     begin
+        w1:=w2;
+        l1:=l2;
+        b1:=b2;
+     end;
+   }
+end.