diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index c2011249035..7abc04105aa 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+2011-07-15  Eric Botcazou  <ebotcazou@adacore.com>
+
+	PR ada/48711
+	* g-socthi-mingw.adb (Fill): Fix formatting.
+
 2011-07-14  John David Anglin  <dave.anglin@nrc-cnrc.gc.ca>
 
 	PR ada/46350
diff --git a/gcc/ada/g-socthi-mingw.adb b/gcc/ada/g-socthi-mingw.adb
index 697425ef227..f57353dbf61 100644
--- a/gcc/ada/g-socthi-mingw.adb
+++ b/gcc/ada/g-socthi-mingw.adb
@@ -277,8 +277,8 @@ package body GNAT.Sockets.Thin is
       use type C.size_t;
 
       Fill  : constant Boolean :=
-	SOSC.MSG_WAITALL /= -1
-	and then (C.unsigned (Flags) and SOSC.MSG_WAITALL) /= 0;
+        SOSC.MSG_WAITALL /= -1
+          and then (C.unsigned (Flags) and SOSC.MSG_WAITALL) /= 0;
       --  Is the MSG_WAITALL flag set? If so we need to fully fill all vectors
 
       Res   : C.int;