Browse Source

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

git-svn-id: trunk@14456 -
paul 15 years ago
parent
commit
da41694995
1 changed files with 2 additions and 6 deletions
  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.