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

2 lines
47 B
Ada
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
subtype Safe_Float is Float range Float'Range;