1--  { dg-do run }
2
3procedure Float_Value2 is
4   F1 : Long_Long_Float := Long_Long_Float'Value ("1.e40");
5   F2 : Long_Long_Float := Long_Long_Float'Value ("1.0e40");
6begin
7   if F1 /= F2 then
8      raise Program_Error;
9   end if;
10end Float_Value2;