mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-24 12:59:48 +01:00
14 lines
184 B
ObjectPascal
14 lines
184 B
ObjectPascal
program bug;
|
|
|
|
begin
|
|
{$I-}
|
|
mkdir('test895');
|
|
InOutRes:=0;
|
|
{$I+}
|
|
writeln('This is a test');
|
|
{$I-}
|
|
mkdir('test895');
|
|
InOutRes:=0;
|
|
{$I+}
|
|
writeln('This is a test');
|
|
end. |