* allow %... for binary constants in delphi mode, resolves #39503

compiler/scanner.pas

@@ -4938,7 +4938,7 @@ type
 
              '%' :
                begin
-                 if not(m_fpc in current_settings.modeswitches) then
+                 if [m_fpc,m_delphi] * current_settings.modeswitches = [] then
                   Illegal_Char(c)
                  else
                   begin

tests/tbf/tb0067.pp → tests/tbs/tb0689.pp

@@ -1,4 +1,3 @@
-{ %FAIL }
 { Old file: tbf0326.pp }
 {  }