-- - -- Author: Brian Tiffin -- Dedicated to the public domain -- -- Date: April 2017 -- Modified: 2017-04-08/18:45-0400 btiffin -- -- Tectonics: gnatmake tightloopada.adb -- + -- Sum of values from 0 to 16777216 with Ada.Long_Long_Integer_Text_IO; procedure TightLoopAda is total : Long_Long_Integer; begin total := 0; for i in 0 .. 2 ** 24 loop total := total + Long_Long_Integer(i); end loop; Ada.Long_Long_Integer_Text_IO.Put(total); end TightLoopAda;