summaryrefslogtreecommitdiff
path: root/test/programs/branching.cps
blob: f73704c0bc09a06dee0ce56d9f7b488fc4601503 (plain)
1
2
3
4
5
6
7
8
9
10
PRIMOP(>=, [REAL 0, REAL 1], [resultFalse], [
    PRIMOP(+, [REAL 2, REAL 4], [result], []),
    PRIMOP(<=, [INT 1, REAL 1], [resultTrue], [
        PRIMOP(&&, [VAR resultTrue, VAR resultFalse], [fin], [
            PRIMOP(-, [REAL 1, REAL 1], [result], []),
            PRIMOP(+, [REAL 1, REAL 1], [twoWhenFinIsFalse], [])
        ]),
        PRIMOP(-, [REAL 1, REAL 1], [result], [])
    ])
])