diff options
Diffstat (limited to 'gcc/ada/s-fileio.adb')
-rw-r--r-- | gcc/ada/s-fileio.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/s-fileio.adb b/gcc/ada/s-fileio.adb index c6abba09bbf..df45003cd1a 100644 --- a/gcc/ada/s-fileio.adb +++ b/gcc/ada/s-fileio.adb @@ -466,7 +466,7 @@ package body System.File_IO is end if; when Out_File => - if Amethod = 'D' and not Creat then + if Amethod = 'D' and then not Creat then Fopstr (1) := 'r'; Fopstr (2) := '+'; Fptr := 3; |