blob: b9dd15ae24aef58beeb06c4fb769e8bdbe396f3f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
{ from GPC test suite }
program fjf227a;
type TString = String;
procedure foo (const v : double);
var s : TString;
begin
repeat
WriteStr (s, '', v : 0);
ReadStr (s, s);
until (s = '') or (s <> '');
if s = ' 4.2E+001' then writeln ('OK') else writeln ('failed "', s,'"')
end;
begin
foo (42)
end.
|
