2007-04-20 Vincent Celier <celier@adacore.com>

[pf3gnuchains/gcc-fork.git] / gcc / ada / s-imgrea.ads

diff --git a/gcc/ada/s-imgrea.ads b/gcc/ada/s-imgrea.ads
index bbe709f..0f298bf 100644 (file)
--- a/gcc/ada/s-imgrea.ads
+++ b/gcc/ada/s-imgrea.ads
@@ -34,7 +34,7 @@
 --  Image for fixed and float types (also used for Float_IO/Fixed_IO output)
 
 package System.Img_Real is
-pragma Preelaborate (Img_Real);
+   pragma Preelaborate;
 
    function Image_Ordinary_Fixed_Point
      (V    : Long_Long_Float;