1 files changed, 8 insertions, 0 deletions
diff --git a/gcc/ada/g-os_lib.adb b/gcc/ada/g-os_lib.adb
index a3d63d90ae8..75c82e53e76 100644
--- a/gcc/ada/g-os_lib.adb
+++ b/gcc/ada/g-os_lib.adb
@@ -1541,6 +1541,14 @@ package body GNAT.OS_Lib is
                   Buffer (Path_Len) := Directory_Separator;
                end if;
 
+               --  By default, the drive letter on Windows is in upper case
+
+               if On_Windows and then Path_Len >= 2 and then
+                 Buffer (2) = ':'
+               then
+                  System.Case_Util.To_Upper (Buffer (1 .. 1));
+               end if;
+
                return Buffer (1 .. Path_Len);
             end;
          end if;