git-svn-id: trunk@14456 -
@@ -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.