(*
TERRA Datentechnik						27-Mar-92
=========================================================================

Subject: M2 V4.00 / Division by zero not catched
------------------------------------------------

The following program will be compiled an executed without
error message. 
*)

MODULE Test;
(*/CHECK/DEB:ME*)
    IMPORT MED;

    VAR
      lr1, lr2 : LONGREAL;
      r1, r2   : REAL;    
	
BEGIN
    lr1 := 0.0;
    lr2 := 5.0 / 0.0;
    lr2 := 5.0 / lr1;

    r1 := 0.0;
    r2 := 5.0 / 0.0;
    r2 := 5.0 / r1;
END Test.
