mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 20:08:12 +02:00
14 lines
152 B
ObjectPascal
14 lines
152 B
ObjectPascal
{ %result=201 }
|
|
|
|
{ from GPC test suite }
|
|
|
|
program mir034e;
|
|
{$r+}
|
|
|
|
type range = 10..13;
|
|
var k : range;
|
|
|
|
begin
|
|
ReadStr ('14', k); { over ubound }
|
|
end.
|