Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gnat.dg/nan_max.adb @ 118:fd00160c1b76
ifdef TARGET_64BIT
author | mir3636 |
---|---|
date | Tue, 27 Feb 2018 15:01:35 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
-- { dg-do run } procedure Nan_Max is function NaN return Long_Float is Zero : Long_Float := 0.0; begin return Zero / Zero; end; Z : Long_Float := 1.0; N : Long_Float := NaN; begin if Long_Float'Max (N, Z) /= Z then raise Program_Error; end if; if Long_Float'Max (Z, N) /= Z then raise Program_Error; end if; if Long_Float'Max (NaN, Z) /= Z then raise Program_Error; end if; if Long_Float'Max (Z, NaN) /= Z then raise Program_Error; end if; end;