freepascal.compiler/tests/tbf0100.pp

unit tbs0100;
interface
uses dos;
implementation
uses dos;             { Not Allowed in BP7}
end.