Преглед на файлове

*** empty log message ***

florian преди 26 години
родител
ревизия
fdadb4a450
променени са 1 файла, в които са добавени 29 реда и са изтрити 0 реда
  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.