mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-15 19:39:33 +02:00
* new bugs
This commit is contained in:
parent
6fff1b96bd
commit
556435a4e1
10
tests/webtbs/tw2280.pp
Normal file
10
tests/webtbs/tw2280.pp
Normal file
@ -0,0 +1,10 @@
|
||||
{ Source provided for Free Pascal Bug Report 2280 }
|
||||
{ Submitted by "Yakov Sudeikin" on 2002-12-23 }
|
||||
{ e-mail: yashka@exebook.com }
|
||||
var
|
||||
a: array of string;
|
||||
|
||||
begin
|
||||
a := nil;
|
||||
if a = nil then;
|
||||
end.
|
16
tests/webtbs/tw2289.pp
Normal file
16
tests/webtbs/tw2289.pp
Normal file
@ -0,0 +1,16 @@
|
||||
{ Source provided for Free Pascal Bug Report 2289 }
|
||||
{ Submitted by "Mattias Gaertner" on 2002-12-27 }
|
||||
{ e-mail: nc-gaertnma@netcologne.de }
|
||||
program TestSkip;
|
||||
|
||||
{$IFDEF NotDefined}
|
||||
|
||||
//
|
||||
{$IFDEF Bogus}
|
||||
{$ENDIF}
|
||||
|
||||
{$ENDIF}
|
||||
|
||||
begin
|
||||
|
||||
end.
|
Loading…
Reference in New Issue
Block a user