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;
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;