freepascal.compiler/tests/webtbf/tw3495.pp

{ %fail }

{ Source provided for Free Pascal Bug Report 3495 }
{ Submitted by "Ido Kanner" on  2005-01-01 }
{ e-mail: [email protected] }
{$MACRO ON}
program Hi;
{$DEFINE ABCDEFHIJKLMNOPQRSTUBWXYZ1234567890abcdefghijklmnopqrstuvwxyz1234567890_ABCDEFHIJKLMNOPQRSTUBWXYZ1234567890abcdefghijklmnopqrstuvwxyz1234567890_ABCDEFHIJKLMNOPQRSTUBWXYZ1234567890abcdefghijklmnopqrstuvwxyz1234567890_ABCDEFHIJKLMNOPQRSTUBWXYZ1234567890abcdefghijklmnopqrstuvwxyz1234567890__ABCDEFHIJKLMNOPQRSTUBWXYZ1234567890abcdefghijklmnopqrstuvwxyz1234567890_ABCDEFHIJKLMNOPQRSTUBWXYZ1234567890abcdefghijklmnopqrstuvwxyz1234567890__________________________________________________________________________________________________________________________________________________________________ := 10}

begin
        writeln (ABCDEFHIJKLMNOPQRSTUBWXYZ1234567890abcdefghijklmnopqrstuvwxyz1234567890_ABCDEFHIJKLMNOPQRSTUBWXYZ1234567890abcdefghijklmnopqrstuvwxyz1234567890_ABCDEFHIJKLMNOPQRSTUBWXYZ1234567890abcdefghijklmnopqrstuvwxyz1234567890_ABCDEFHIJKLMNOPQRSTUBWXYZ1234567890abcdefghijklmnopqrstuvwxyz1234567890__ABCDEFHIJKLMNOPQRSTUBWXYZ1234567890abcdefghijklmnopqrstuvwxyz1234567890_ABCDEFHIJKLMNOPQRSTUBWXYZ1234567890abcdefghijklmnopqrstuvwxyz1234567890__________________________________________________________________________________________________________________________________________________________________);
end.