Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gnat.dg/nan_max.adb @ 144:8f4e72ab4e11
fix segmentation fault caused by nothing next cur_op to end
author | Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> |
---|---|
date | Sun, 23 Dec 2018 21:23:56 +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;