URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gnat.dg/] [conv_real.adb] - Rev 304
Compare with Previous | Blame | View Log
-- { dg-do run } with Interfaces; use Interfaces; procedure Conv_Real is Small : constant := 10.0**(-9); type Time_Type is delta Small range -2**63 * Small .. (2**63-1) * Small; for Time_Type'Small use Small; for Time_Type'Size use 64; procedure Cache (Seconds_Per_GDS_Cycle : in Time_Type) is Cycles_Per_Second : constant Time_Type := (1.0 / Seconds_Per_GDS_Cycle); begin if Integer_32 (Seconds_Per_GDS_Cycle * Cycles_Per_Second) /= 1 then raise Program_Error; end if; end Cache; begin Cache (0.035); end;