uni/inf2100/pascal2100/examples/error/parser/double-minus.pas

program DoubleMinus;
var x: integer;   y: integer;
begin
   x := -2;  y := --x;
   write('x = ', x, eol)
end