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


1
2
3
4
5
6
7
8
9
10
11

program fpu;

{$mode delphi}

uses SysUtils,Math;

var
  f1,f2 : single;
  caught: boolean;

{$include tmask.inc}