Ver Fonte

* obsolete test

peter há 21 anos atrás
pai
commit
698bdc9926
1 ficheiros alterados com 0 adições e 18 exclusões
  1. 0 18
      tests/test/tcg2.pp

+ 0 - 18
tests/test/tcg2.pp

@@ -1,18 +0,0 @@
-{ %CPU=i386 }
-
-function x : longint;saveregisters;
-begin
-  x:=34;
-end;
-
-var
-  y : longint;
-begin
-  asm
-    movl $15,%eax
-  end;
-  y:=x;
-  Writeln(y);
-  if y<>34 then
-    halt(1);
-end.