-- CHECK THAT BLOCKS CAN BE EMBEDDED UP TO AN ARBITRARY LEVEL (65).

with Instrument;
use Instrument;

procedure Blema2 is
    X : Integer := 0;
begin
    Start ("BLEMA2", " 65 EMBEDDED BLOCKS");
    for I in 1 .. 100000 loop
        begin
            begin
                begin
                    begin
                        begin
                            begin
                                begin
                                    begin
                                        begin
                                            begin
                begin
                    begin
                        begin
                            begin
                                begin
                                    begin
                                        begin
                                            begin
                begin
                    begin
                        begin
                            begin
                                begin
                                    begin
                                        begin
                                            begin
                begin
                    begin
                        begin
                            begin
                                begin
                                    begin
                                        begin
                                            begin
                begin
                    begin
                        begin
                            begin
                                begin
                                    begin
                                        begin
                                            begin
                begin
                    begin
                        begin
                            begin
                                begin
                                    begin
                                        begin
                                            begin
                begin
                    begin
                        begin
                            begin
                                begin
                                    begin
                                        begin
                                            begin
                begin
                    begin
                        begin
                            begin
                                begin
                                    begin
                                        begin
                                            begin
                [statement]
                                            end;
                                        end;
                                    end;
                                end;
                            end;
                        end;
                    end;
                end;
                                            end;
                                        end;
                                    end;
                                end;
                            end;
                        end;
                    end;
                end;
                                            end;
                                        end;
                                    end;
                                end;
                            end;
                        end;
                    end;
                end;
                                            end;
                                        end;
                                    end;
                                end;
                            end;
                        end;
                    end;
                end;
                                            end;
                                        end;
                                    end;
                                end;
                            end;
                        end;
                    end;
                end;
                                            end;
                                        end;
                                    end;
                                end;
                            end;
                        end;
                    end;
                end;
                                            end;
                                        end;
                                    end;
                                end;
                            end;
                        end;
                    end;
                end;
                                            end;
                                        end;
                                    end;
                                end;
                            end;
                        end;
                    end;
                end;
            end;
        end;
        if X /= 1 then
            X := 0;
        end if;
        X := 1;
    end loop;
    Stop;
end Blema2;