fpcsrc/tests/test/trstr7.pp


1
2
3
4
5
6
7
8
9
10
11
12
13

{ %result=201 }

{ from GPC test suite }

program mir034e;
{$r+}

type range = 10..13;
var k : range;

begin
   ReadStr ('14', k); { over ubound }
end.