path: root/tests/webtbf/tw38504.pp

{ %fail }
Var
  MyVar : char;

Procedure MyProc;
Begin
  MyVar := ''; (* <-- two single-quotes *)
End;

Begin
End.