fpc/tests/webtbs/tw2072.pp
fpc 790a4fe2d3 * log and id tags removed
git-svn-id: trunk@42 -
2005-05-21 09:42:41 +00:00

19 lines
286 B
ObjectPascal

{ Source provided for Free Pascal Bug Report 2072 }
{ Submitted by "Bill Rayer" on 2002-08-09 }
{ e-mail: lingolanguage@hotmail.com }
program tw2072;
(*$ifdef FPC*)
const name = 'FPC';
(*$else *)(*Hello*)
const name = 'Delphi';
(*$endif *)
begin
writeln ('Hello ', name);
end.