소스 검색

*** empty log message ***

florian 25 년 전
부모
커밋
830f2c0659
1개의 변경된 파일13개의 추가작업 그리고 0개의 파일을 삭제
  1. 13 0
      tests/tbs/tb0334.pp

+ 13 - 0
tests/tbs/tb0334.pp

@@ -0,0 +1,13 @@
+uses
+   sysutils;
+
+var
+   s : tintset;
+
+begin
+   if sizeof(s)<>sizeof(integer) then
+     begin
+        writeln('Wrong size of Sysutils.TIntegerSet');
+        halt(1);
+     end;
+end.