Re: How to check a Float for NaN

[anon@anon.org (anon)]

  --
  -- Nan is define to be greater than value of hex 16#FF000000#
  -- 

  function isNan ( N : Float ) return Boolean is

     T : Long_Long_Integer := Long_Long_Integer ( N ) ;

    begin
      if T > 16#FF000000# then
        return True ;
      else
        return False ;
      end if ;
    end ;


In <3132e38d-18bb-4890-9cec-31056ac6e3ba@x19g2000prg.googlegroups.com>, Jerry <lanceboyle@qwest.net> writes:
>How would one check a Float or Long_Float if it has value NaN? The
>only ways that I can come up with are to import a C function (isnan, I
>think) or to write Long_Float'image(Some_Float) to a string and
>examine the first three characters to see if they are "NaN" (and that
>seems to be a GNAT implementation choice so might not be portable,
>which is OK for my use).
>
>Jerry
>