t_id
1367
t_adddate
2004/09/17
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
1021980217 | 1027255 | True | False | Successfully run |
Record count: 1
{ Source provided for Free Pascal Bug Report 3324 } { Submitted by "Tom Verhoeff" on 2004-09-15 } { e-mail: T.Verhoeff@tue.nl } program ReadCharSubrange; { Demonstrates bug in 1.9.5 when reading into a subrange of Char } const MinChar = 'a'; MaxChar = 'z'; type Subrange = MinChar .. MaxChar; var c: Subrange; begin write ( 'Type a character in the range ', MinChar, ' .. ', MaxChar, ': ' ); c:='b'; if c='a' then begin readln ( c ); writeln ( 'c = ', c ); end; end.