TERRA Datentechnik					27-Mar-92
=================================================================

Subject: M2 V4.00 Case-tag error not caught
-------------------------------------------

The following program can be compiled and executed without any error
message.

(*/DEBUG:ME/CHECK*)
MODULE Case;
VAR p : CARDINAL;

BEGIN
  p := 100;
  CASE p OF
    1 : |
    2 : |
    3 : |
  END; (* case *)
END Case.
