Listing:

    1  MODULE TFor;
    2  VAR r : REAL; x : INTEGER;
    3  BEGIN FOR r := 1 TO 5 DO x := x + 1 END
*****            ^ FOR needs integer variable and bounds
    4  END TFor.

    1 error