MODULE DupVar;
VAR x, y : INTEGER;
VAR x : REAL;
BEGIN x := 1
END DupVar.