Programmer's ROM - The Computer Language Library/programmersrom.iso/ada/piwg/z000231.ada

Text File | 1988-05-03 | 1.4 KB | 65 lines

procedure z000231 is
    begin
    block_1: declare exception_1: exception;
    begin -- block_1
    raise exception_1;
    exception -- block_1
    when others =>
    block_2: declare exception_2: exception;
    begin -- block_2
    raise exception_2;
    exception -- block_2
    when others =>
    block_3: declare exception_3: exception;
    begin -- block_3
    raise exception_3;
    exception -- block_3
    when others =>
    block_4: declare exception_4: exception;
    begin -- block_4
    raise exception_4;
    exception -- block_4
    when others =>
    block_5: declare exception_5: exception;
    begin -- block_5
    raise exception_5;
    exception -- block_5
    when others =>
    block_6: declare exception_6: exception;
    begin -- block_6
    raise exception_6;
    exception -- block_6
    when others =>
    block_7: declare exception_7: exception;
    begin -- block_7
    raise exception_7;
    exception -- block_7
    when others =>
    block_8: declare exception_8: exception;
    begin -- block_8
    raise exception_8;
    exception -- block_8
    when others =>
    block_9: declare exception_9: exception;
    begin -- block_9
    raise exception_9;
    exception -- block_9
    when others =>
    block_10: declare exception_10: exception;
    begin -- block_10
    raise exception_10;
    exception -- block_10
    when others =>
        null;
    end block_10;
    end block_9;
    end block_8;
    end block_7;
    end block_6;
    end block_5;
    end block_4;
    end block_3;
    end block_2;
    end block_1;
    end z000231;