RosettaCodeData/Task/Detect-division-by-zero/XPL0/detect-division-by-zero.xpl0

include c:\cxpl\codes;
int A, B;
[Trap(false);           \turn off error trapping
B:= 1234/(A-A);         \(error not detected at compile time)
if GetErr then Text(0, "Divide by zero");
]