浏览代码

test: fix tdfa2.pp - it is not a unit

git-svn-id: trunk@14456 -
paul 16 年之前
父节点
当前提交
da41694995
共有 1 个文件被更改,包括 2 次插入6 次删除
  1. 2 6
      tests/test/opt/tdfa2.pp

+ 2 - 6
tests/test/opt/tdfa2.pp

@@ -1,11 +1,7 @@
 { %OPT=-Oodfa -Sew -vw}
-unit tdfa;
+program tdfa2;
 {$mode objfpc}{$h+}
 
-interface
-
-implementation
-
 procedure test0;
 const
   c: array[0..3] of integer = (0,1,2,3);
@@ -50,5 +46,5 @@ begin
 end;
 
 
-
+begin
 end.