[Bug ada/14068] gnatmake fails with error box

["broeg at gmx dot de" <gcc-bugzilla at gcc dot gnu dot org>]

------- Additional Comments From broeg at gmx dot de  2004-02-10 12:51 -------
I checked it with snapshot of 3.4 and it works with the new version. sorry if I 
forgot to include constants.ads. If you want to check anyway, here it is:
(I reduced it somewhat, so that only number types is needed now.
----------------------------------------------------------------------------
with Number_Types;
use Number_Types;
with Ada.Numerics;
package Constants is
   
   
   -- specific molar Gas Constant for hydrogen
   R_Hydrogen_Molecular : constant Real := (4127.0); -- [J/(kg * K)]
   R_Hydrogen_Atomic : constant Real := (8254.0); -- [J/(kg * K)]
   R_Helium_Atom : constant Real := (2078.0); -- [J/(kg * K)]
   R_Solar_Wrong : constant Real := (6710.0); --for x:y:z = .75:.25:0
   R_Solar : constant Real := (13888.8888); --from solar table at r=.3Rs
   R_Air : constant Real :=  R_Hydrogen_Molecular / (15.0);
   R_Bojan : constant Real := (3614.0); -- Molar Mass=2.3E-3 kg/mol
   
   -- stefan bolzmann konstante:
   Stefan_Boltzmann : constant Real := (5.67051E-6); -- [W/(m^2 * K^4)]
   K                : constant Real := (1.380658e-23); -- [J/K]
                                                       -- gravitation Constant
   G : constant Real := (6.67390E-11);  --[m^3/kg/s^2]
 
   
   -- earth mass
   M_e : constant Real := (5.972E24);   -- [kg]
   
   -- solar luminosity, mass, radius
   L_o : constant Real := (3.846E26);  --[Watt]
   M_o : constant Real := (1.989e30);  --[kg]
   R_o : constant Real := (6.960e8);   --[m]
   
   -- jupiter
   M_Jupiter : constant Real := (1899.0e24);   --[kg]
   
   -- PI
   Pi : constant Real := Number_types.Pi;
   AU : constant Real := (149597870610.0); --[m]
   
   -- integer numbers:
   Eins : constant Real := 1.0;
   Zehn : constant Real := 10.0;
   
   
   --     -- small values;
   Ten_To_The_Minus_200 : constant Real := 1.0e-200;
   
   
end Constants;


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=14068