mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2026-01-07 07:10:32 +01:00
ee49e8acb6
* test adapted to use DecimalSeparator to create the test string git-svn-id: trunk@13399 -
19 lines
287 B
ObjectPascal
19 lines
287 B
ObjectPascal
{$mode objfpc}
|
|
{$h+}
|
|
uses
|
|
sysutils;
|
|
var
|
|
e : extended;
|
|
s : string;
|
|
l : longint;
|
|
begin
|
|
sscanf('asdf 1'+DecimalSeparator+'2345 1234','%s %f %d',[@s,@e,@l]);
|
|
if (e<>1.2345) or
|
|
(l<>1234) or
|
|
(s<>'asdf') then
|
|
halt(1);
|
|
// writeln(s,' ',e,' ',l);
|
|
writeln('ok');
|
|
end.
|
|
|