http://gcc.gnu.org/bugzilla/show_bug.cgi?id=60730
--- Comment #4 from John Marino <gnugcc at marino dot st> --- FreeBSD GNAT 4.9.0 is the same 4.7.3 (allegedly broken): FreeBSD draco.synsport.com 10.0-RELEASE FreeBSD 10.0-RELEASE #0 r260789: Thu Jan 16 22:34:59 UTC 2014 r...@snap.freebsd.org:/usr/obj/usr/src/sys/GENERIC amd64 > root@draco:/home/marino/test/rounding # /usr/local/gcc-aux/bin/ada --version ada (GCC) 4.9.0 20140406 (prerelease) -=> GNAT AUX [FreeBSD64] Copyright (C) 2014 Free Software Foundation, Inc. This is free software; see the source for copying conditions. There is NO warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. > root@draco:/home/marino/test/rounding # ./round_decimal raised PROGRAM_ERROR : round_decimal.adb:34 explicit raise