X-Git-Url: http://git.sourceforge.jp/view?a=blobdiff_plain;f=gcc%2Fada%2Fg-bubsor.ads;h=d88a1753ec911154f485f5e358825b24fd803d26;hb=17052c8f8f63239deccec6d06ff1d9a9ebfc4640;hp=19dcbef7db9ca5ca40931b73d3cdac6f51198573;hpb=1d9b970a8fc86e69c3eeb9314b9a5de609047115;p=pf3gnuchains%2Fgcc-fork.git

diff --git a/gcc/ada/g-bubsor.ads b/gcc/ada/g-bubsor.ads
index 19dcbef7db9..d88a1753ec9 100644
--- a/gcc/ada/g-bubsor.ads
+++ b/gcc/ada/g-bubsor.ads
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---                     Copyright (C) 1995-2005, AdaCore                     --
+--                     Copyright (C) 1995-2006, AdaCore                     --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -44,7 +44,7 @@
 --  has the advantage of being Pure, while this unit can only be Preelaborate.
 
 package GNAT.Bubble_Sort is
-   pragma Preelaborate;
+   pragma Pure;
 
    --  The data to be sorted is assumed to be indexed by integer values from
    --  1 to N, where N is the number of items to be sorted.