Explorar o código

*** empty log message ***

florian %!s(int64=26) %!d(string=hai) anos
pai
achega
fdadb4a450
Modificáronse 1 ficheiros con 29 adicións e 0 borrados
  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.