* new bug

tests/webtbs/tw3554.pp

@@ -0,0 +1,17 @@
+{$R+}
+
+function d(a,b:string):Integer;
+begin
+  d := Ord(a[1])-Ord(b[1]);
+end;
+
+var
+  c: SmallInt;
+  ch : char;
+begin
+  ch:='A';
+  c := Byte(ch)-Byte('B');
+  WriteLn(c);
+  WriteLn(d('a','b'));
+end.
+