소스 검색

* fail added

peter 21 년 전
부모
커밋
1d3a5019b8
1개의 변경된 파일3개의 추가작업 그리고 1개의 파일을 삭제
  1. 3 1
      tests/tbf/tb0165.pp

+ 3 - 1
tests/tbf/tb0165.pp

@@ -1,4 +1,6 @@
-{ $mode objfpc}
+{ %fail }
+
+{$ifdef fpc}{$mode objfpc}{$endif}
 type
 type
   tmyclass = class
   tmyclass = class
     function f2 : ansistring;
     function f2 : ansistring;