* enable OpenStrings by default in mode Delphi

+ added test

compiler/scanner.pas

@@ -624,12 +624,16 @@ implementation
                  include(init_settings.localswitches,cs_strict_var_strings);
              end;
 
-           { in delphi mode, excess precision is by default on }
+           { in delphi mode, excess precision and open strings are by default on }
            if ([m_delphi] * current_settings.modeswitches <> []) then
              begin
                include(current_settings.localswitches,cs_excessprecision);
+               include(current_settings.localswitches,cs_openstring);
                if changeinit then
-                 include(init_settings.localswitches,cs_excessprecision);
+                 begin
+                   include(init_settings.localswitches,cs_excessprecision);
+                   include(init_settings.localswitches,cs_openstring);
+                 end;
              end;
 
 {$ifdef i8086}

tests/tbs/tb0698.pp

@@ -0,0 +1,18 @@
+{ %NORUN }
+
+program tb0698;
+
+{ Open Strings is by default enabled in mode Delphi }
+
+{$mode delphi}
+
+procedure Test(var aArg: ShortString);
+begin
+end;
+
+var
+  s: String[5];
+begin
+  s := 'Test';
+  Test(s);
+end.