Remove unused variable.

From-SVN: r161154

gcc/ada/gnatbind.adb

@@ -753,27 +753,23 @@ begin
       --  Output list of ALI files in closure
 
       if Output_ALI_List then
-         declare
-            FD : File_Descriptor;
-         begin
-            if ALI_List_Filename /= null then
-               Set_List_File (ALI_List_Filename.all);
-            end if;
+         if ALI_List_Filename /= null then
+            Set_List_File (ALI_List_Filename.all);
+         end if;
 
-            for Index in ALIs.First .. ALIs.Last loop
-               declare
-                  Full_Afile : constant File_Name_Type :=
-                                 Find_File (ALIs.Table (Index).Afile, Library);
-               begin
-                  Write_Name (Full_Afile);
-                  Write_Eol;
-               end;
-            end loop;
+         for Index in ALIs.First .. ALIs.Last loop
+            declare
+               Full_Afile : constant File_Name_Type :=
+                              Find_File (ALIs.Table (Index).Afile, Library);
+            begin
+               Write_Name (Full_Afile);
+               Write_Eol;
+            end;
+         end loop;
 
-            if ALI_List_Filename /= null then
-               Close_List_File;
-            end if;
-         end;
+         if ALI_List_Filename /= null then
+            Close_List_File;
+         end if;
       end if;
 
       --  Build source file table from the ALI files we have read in