fpcsrc/tests/test/units/math/tmask.pp


1
2
3
4
5
6
7
8
9
10
11
12

program fpu;

{$mode delphi}

uses SysUtils,Math;

var
  f1,f2 : double;
  caught: boolean;

{$include tmask.inc}