r_bad_open.mod 90 B

12345
  1. MODULE RBadOpen;
  2. TYPE R = RECORD a : ARRAY OF INTEGER END;
  3. VAR r : R;
  4. BEGIN
  5. END RBadOpen.