mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-11 20:51:17 +02:00
50c48349d5
* CheckRead checks if reading caused an I/O error and returns false in this case git-svn-id: trunk@45635 -
12 lines
273 B
ObjectPascal
12 lines
273 B
ObjectPascal
{ %RESULT=6 }
|
|
{$mode ISO}
|
|
program isoModeReadingNumbers(input, output);
|
|
var
|
|
i: integer;
|
|
begin
|
|
{ we cannot call the executable with <&- >&- while running the test suite,
|
|
so render the file handle manually illegal }
|
|
Textrec(input).handle:=$1234;
|
|
readLn(i);
|
|
end.
|