Minor reformatting.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@235724 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ada/a-direct.adb b/gcc/ada/a-direct.adb
index 500a31d409626b80491842d3e86f8d70b8d2ae1b..766415428ecbb8529f36f690e0c5f745b2f5b865 100644 (file)
--- a/gcc/ada/a-direct.adb
+++ b/gcc/ada/a-direct.adb
@@ -623,8 +623,9 @@ package body Ada.Directories is
             Get_Next_Entry (Search, Dir_Ent);
 
             declare
+               Fname : constant String := Full_Name   (Dir_Ent);
                Sname : constant String := Simple_Name (Dir_Ent);
-               Fname : constant String := Full_Name (Dir_Ent);
+
             begin
                if OS_Lib.Is_Directory (Fname) then
                   if Sname /= "." and then Sname /= ".." then