freepascal.compiler/tests/test/units/math/tmask.pp

program fpu;

{$mode delphi}

uses SysUtils,Math;

var
  f1,f2 : double;
  caught: boolean;

{$include tmask.inc}