MODULE cascadedif ;


PROCEDURE test ;
VAR
   i: CARDINAL ;
   p: CARDINAL ;
BEGIN
   i := 1 ;
   IF i = 1
   THEN
      IF p = 1
      THEN
      END
   ELSE
      IF p = 2
      THEN
      END
   END
END test ;


BEGIN
   test
END cascadedif.