(* Test: Imbricated TRY FINALLY statements *)

MODULE Main;

VAR
  i: INTEGER;

BEGIN

  TRY
    i := 1;
  FINALLY
    i := 2;
  END;

  TRY

    i := 3;
    TRY
      i := 4;
    FINALLY
      i := 5;
    END;
    i := 6;

  FINALLY

    i := 7;
    TRY
      i := 8;
    FINALLY
      i := 9;
    END;
    i := 10;

  END;

END Main.