2011-08-02 Robert Dewar <dewar@adacore.com>

[pf3gnuchains/gcc-fork.git] / gcc / ada / cstand.adb

diff --git a/gcc/ada/cstand.adb b/gcc/ada/cstand.adb
index ad79aab..2df2a40 100644 (file)
--- a/gcc/ada/cstand.adb
+++ b/gcc/ada/cstand.adb
@@ -196,14 +196,15 @@ package body CStand is
       Set_Size_Known_At_Compile_Time (E);
    end Build_Float_Type;
 
-   ------------------------
+   ------------------------------
    -- Find_Back_End_Float_Type --
-   ------------------------
+   ------------------------------
 
    function Find_Back_End_Float_Type (Name : String) return Entity_Id is
-      N : Elmt_Id := First_Elmt (Back_End_Float_Types);
+      N : Elmt_Id;
 
    begin
+      N := First_Elmt (Back_End_Float_Types);
       while Present (N) and then Get_Name_String (Chars (Node (N))) /= Name
       loop
          Next_Elmt (N);