tests/webtbs/tw33167.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

{$ifndef FPUNONE}
uses
  math;

var
  a,b,c : float;
begin
  a:=7.7;
  b:=1.1;
  c:=a mod b;
  if not(SameValue(c,0.0)) then
    begin
      writeln(c);
      halt(1);
    end;
  writeln('ok');
{$else FPUNONE}
begin
{$endif FPUNONE}
end.