RosettaCodeData/Task/Infinity/Ada/infinity-3.ada

2 lines
47 B
Ada
Raw Permalink Normal View History

2013-04-10 12:38:42 -07:00
subtype Safe_Float is Float range Float'Range;