-- (C) Copyright 2000 by John Halleck, All Rights Reserved. -- Standard floating point computation of Pythagorean Sums. with Generic_Pythagorean_Sums; package Pythagorean_Sums is new Generic_Pythagorean_Sums (Float);