mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-17 20:00:13 +02:00
10 lines
195 B
ObjectPascal
10 lines
195 B
ObjectPascal
var
|
|
e: (ab, abcd);
|
|
code: int32;
|
|
begin
|
|
val('ab'#4'd', e, code);
|
|
if code = 0 then writeln('matches ', e) else writeln('matches nothing, code ', code);
|
|
if code <> 3 then
|
|
halt(1);
|
|
end.
|