aboutsummaryrefslogtreecommitdiff
path: root/tests/i/signed-zero-division/program.cps
blob: 4a90b76643534db27e28d3dd76ba7ac0590154f0 (plain)
1
2
3
4
5
6
7

DECLARE Zero : REAL
Zero <- -0.0
TRY
    OUTPUT (1.0 / Zero) = 0.0
CATCH
    OUTPUT "zero caught"
ENDTRY