diff --git a/gcc/ada/libgnat/s-win32.ads b/gcc/ada/libgnat/s-win32.ads
index 6ea6615363929b0367883ae5e2ec6295fd483d97..6e8e246d903a0d865eeb0d422da296fe0ce82bf0 100644
--- a/gcc/ada/libgnat/s-win32.ads
+++ b/gcc/ada/libgnat/s-win32.ads
@@ -315,8 +315,8 @@ package System.Win32 is
    pragma Import (Stdcall, FileTimeToLocalFileTime, "FileTimeToLocalFileTime");
 
    function LocalFileTimeToFileTime
-     (lpFileTime      : access Long_Long_Integer;
-      lpLocalFileTime : access Long_Long_Integer) return BOOL;
+     (lpLocalFileTime : access Long_Long_Integer;
+      lpFileTime      : access Long_Long_Integer) return BOOL;
    pragma Import (Stdcall, LocalFileTimeToFileTime, "LocalFileTimeToFileTime");
 
    procedure Sleep (dwMilliseconds : DWORD);