procedures and return

["zork" <zork@nospam.com>]

Hi,

I am a little confused about how precedures handle a 'return' statement. I
have the following:

procedure my_procedure (...)
begin
    if <some_condition> then
        put("inside if-statement);
        new_line;
        return;
    end if;
    put ("outside if-statement");
end my_procedure;

I am finding that if some_condition *is* satisfied, then the procedure
prints both put statements i.e.

inside if-statement
outside if-statement

... i thought 'return' should exit the procedure and return control to where
the procedure was called. hence only printing "inside if-statement"?

I am using ada95.

Any help appreciated!

zork