paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-29 20:00:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@14456 -
This commit is contained in:
paul 2009-12-21 06:08:31 +00:00
parent 9955e6b2bf
commit da41694995
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
tests/test/opt/tdfa2.pp
View File

@ -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.