tests/i/unwind-calls/program.cps


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21


PROCEDURE Fail()
    THROW
ENDPROCEDURE
FUNCTION CatchAndReturn() RETURNS INTEGER
    TRY
        CALL Fail()
    CATCH
        RETURN 7
    ENDTRY
    RETURN 0
ENDFUNCTION
OUTPUT CatchAndReturn()
TRY
    TRY
        THROW
    CATCH
        THROW
    ENDTRY
CATCH
    OUTPUT "outer catch"
ENDTRY